gebruik „nu“ bezwaar hebben om het huidige tijdvoorwerp te krijgen en het op te slaan in een variabele. Dan kunt u een tijdopnemercontrole met groot te controleren interval gebruiken als de opgeslagen tijd 24 uren geleden door het opnieuw met „te vergelijken nu“ bezwaar heeft is.
Openbare Klasse Form1
Schemerige startTime als Datum
Schemerige timerA als Nieuwe Tijdopnemer
Privé SubForm1_Load (ByVal afzender als System.Object, ByVal e als System.EventArgs) behandelt MyBase.Load
startTime = nu
timerA.Interval = (600000)
AddHandler timerA.Tick, AddressOf passed10Min
timerA.Start ()
Sub van het eind
Sub passed10Min ()
Schemerige D als Datum = startTime
d.AddDays (1)
Als Date.Compare (nu, D) <> '' 24 overging
timerA.Stop ()
Anders
'' 24 heeft niet overgegaan
Beëindig als
Beëindig Sub
Beëindig Klasse
om de 10 minuten zal deze code controleren als 24 uren sinds de lading van de vorm hebben overgegaan.