Programm unterbrechen. Timer?
Prozeduren alle x Minuten durchlaufen.
Hallo...
Ich bin realtiv neu in Sachen VB und hab auch nur Erfahrungen in VBA gemacht.
Ich habe mir nun Programm erstellt, das Daten aus einer Mysql-Tabelle holt.
Da es aber ständig laufen soll ist meine Frage wie ich bestimmte Prozeduren alle X Minuten durchlaufen kann..
Ich hab mir die Timer mal angesehen, habe aber nichts vernünftiges hinbekommen
MfG und Danke..
Hallo...
Ich bin realtiv neu in Sachen VB und hab auch nur Erfahrungen in VBA gemacht.
Ich habe mir nun Programm erstellt, das Daten aus einer Mysql-Tabelle holt.
Da es aber ständig laufen soll ist meine Frage wie ich bestimmte Prozeduren alle X Minuten durchlaufen kann..
Ich hab mir die Timer mal angesehen, habe aber nichts vernünftiges hinbekommen
MfG und Danke..
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 43659
Url: https://administrator.de/contentid/43659
Ausgedruckt am: 22.11.2024 um 11:11 Uhr
2 Kommentare
Neuester Kommentar
Hallo afri!
Hier ein Beispiel mit VB2005:
Form1 mit btnStart, btnStop und Timer1
Vergleichbar in VB 6.0:
HTH
bastla
Hier ein Beispiel mit VB2005:
Form1 mit btnStart, btnStop und Timer1
Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
MsgBox("Es ist wieder soweit!") 'oder eben Aufruf Deines Datensaugeprogramms
End Sub
Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
Timer1.Enabled = True
Timer1.Interval = 1000 * 20 'Angabe in ms --> 20 Sekunden
Timer1.Start()
End Sub
Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
Timer1.Stop()
End Sub
End Class
Vergleichbar in VB 6.0:
Private Sub Timer1_Timer()
MsgBox "Es ist wieder soweit!"
End Sub
Private Sub btnStart_Click()
Timer1.Interval = 1000 * 20
Timer1.Enabled = True
End Sub
Private Sub btnStop_Click()
Timer1.Enabled = False
End Sub
HTH
bastla