Importe System.Threading
Modul Module1
Kategorie SampleClass
Privates backgroundThread als Gewinde
Privates VorStartBackgroundThread ()
backgroundThread = neues Gewinde (neues ParameterizedThreadStart (AddressOf DoWork)) '***************** sehen das Unterseeboot nicht zum dowork
backgroundThread.IsBackground = richten aus
'Timer, zum des Gewindes nach 5 Sekunden abzubrechen
Schwacher Timer als neues System.Timers.Timer (5000) '5 Sekunden
AddHandler Timer. Abgelaufen, timer_Elapsed AddressOf
'*********** haben Verlauf nicht als Wahl. Auch sieht nicht das timer_elapsed Unterseeboot
'Gewinde beginnen dann Timer beginnen
backgroundThread.Start ()
Timer. Beginnen ()
Unterseebootbeenden 'Endenfunktion StartBackgroundThread
'Timer abgefeuert nach einer 5-Sekunden-Funktion
Privates Vor timer_Elapsed (ByVal Absender als Gegenstand, ByVal e als System.Timers.ElapsedEventArgs)
Versuch
Wenn backgroundThread IsNot nichts dann '*********** backgroundTimer nicht definiert wird
backgroundThread.Abort () '********* backgroundTimer wird nicht definiert
Beenden wenn
Fang
Enden-Versuch
Endenvor 'Endentimer-Funktion
'Arbeitsfunktion tun
Privates VorDoWork (ByVal Zustand als Gegenstand)
Versuch
'hier arbeiten
E als System.Threading.ThreadAbortException sich verfangen
'den Timer behandeln, der hier abgelaufen wird
Versuch beenden
Unterseeboot beenden
Kategorie beenden
Sub Hauptleitung ()
Unterseeboot beenden
Modul beenden
|