Im Forum gibt es viele Eintrge zum Thema Timer in einer Konsole App. Leider habe ich kein funktionierendes Beispiel Projekt gefunden. Kann hier jemand ein Beispiel Projekt bereitstellen?
tja, wo ist das Problem?
Neues Konsole Projekt.
Dann Variable hinzufügen bei App:
myTimer As timer
Die Funktion für den Timer:
Sub TimerAction(t as timer)
dim d as new date
print "time: "+d.LongTime
End Sub
und Run Event:
Function Run(args() as String) As Integer
myTimer = new timer
AddHandler myTimer.Action, WeakAddressOf TimerAction
myTimer.Period = 1000
myTimer.Mode = 2
// main loop
do
DoEvents 1000
loop
End Function
Beispiel schicke ich mal per Email rüber.
Vielen Dank. Das funktioniert.