Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte program Microsoft Visual Basic Express vyberte menu " Súbor " a kliknite na " Nový projekt " . Vyberte " Visual Basic " pod " Nainštalované šablóny " a potom dvakrát kliknite na " Class Library " , zobrazí sa uprostred okna " Nový projekt "
2
Zadajte nasledujúce vyššie uvedené " public class Class1 " . :
Dovoz System
Dovoz System.Threading
3
skopírujte a vložte nasledujúci za " verejné triedy Class1 " :
Private sub CntrFunc ( )
Dim iCntr As Integer
Dim ThreadState As String
iCntr = 1 až 70000
iCntr Mod 7000 = 0 , potom
ThreadState = Thread.CurrentThread.ThreadState.ToString
Console.WriteLine ( " Počítadlo " + ThreadState )
End If
Ďalšie
End Sub
Tento podsystém bude spustený ako vlákno a vykonať pre sláčiky .
4
Zadajte nasledujúce vytvoriť funkciu , ktorá sa spustí vlákno " CntrFunc " a monitorovať jeho stav , kým sa to robí :
Public Function createThreadInDLL ) As ( String
Dim ThreadState As String Dim
tr As New Thread ( AddressOf CntrFunc )
tr.Start ( )
Kým tr.IsAlive
Thread.CurrentThread.Sleep ( 200 )
End Kým
ThreadState = tr.ThreadState . toString
createThreadInDLL = " Téma sa vykonáva Téma je : " + _
ThreadState
End Function