Imports System.Timers
 
Public Class Demo
    Private Shared Timer_apifree As System.Timers.Timer
 
    Public Sub New()
        Timer_apifree = New System.Timers.Timer
        Timer_apifree.Enabled = False
        Timer_apifree.Interval = 60000
        Timer_apifree.AutoReset = True
 
        AddHandler Timer_apifree.Elapsed, AddressOf OnTimedEvent
    End Sub
 
    Private Shared Sub OnTimedEvent(ByVal source As Object, ByVal e As _
      ElapsedEventArgs)
        Timer_apifree.Enabled = False
        Debug.Print("1 TIME")
    End Sub
End Class

befficient - consulting & programming
Tracability Know-How seit über 5 Jahren
itac (MES.Suite) Client Programmierung

Beitrag wurde zuletzt am 30.04.08 um 10:52:47 editiert.