afri
Goto Top

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 face-sad

MfG und Danke..

Content-ID: 43659

Url: https://administrator.de/contentid/43659

Ausgedruckt am: 22.11.2024 um 11:11 Uhr

bastla
bastla 03.11.2006 um 18:09:19 Uhr
Goto Top
Hallo afri!

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
afri
afri 03.11.2006 um 18:13:48 Uhr
Goto Top
Hi!

Genau das habe ich gesucht! Großes Dankeschön!

geht nun alles face-smile