Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Začnite nový projekt Windows Prihláška v jazyku Visual Basic . NET dávať to vhodný názov , niečo ako " VB Závit príklad . " Tým sa vytvorí novú aplikáciu pre vás s jedným hlavným formulári.
2
Prepnite do kódu za sebou hlavnú formulár a pridať " Dovoz System.Threading "
na samom vrchole . Toto importuje " . Net " menný priestor potrebný pre prácu s vláknami .
3
Vytvorte rutinu , ktorá bude mať za úlohu vlákno . Tu je jednoduchý príklad , ktorý jednoducho počíta 0-10.000 :
Public Sub LongProcess ( )
Dim index As Integer
index = 0 až 10000
Application.DoEvents ( )
Ďalšie
MsgBox ( " závit Completed " )
End Sub
To bude simulovať dlhý spustený proces . Dlhé výpočty pre pomalé databázových volania by sa vhodnými kandidátmi na uzatvárajú v jednej rutiny , ktoré potom môžu byť závitové
4
Pridanie tlačidla do formulára a je to psovoda Kliknite na tlačidlo Štart úloha: .
Dim t Ako sa závitom
t = new Thread ( AddressOf LongProcess )
t.Start ( )
MsgBox ( " Program Completed " )
venovať osobitnú oznámenie o umiestnení príkazov OknoSeZprávou . Sekvenčné programovanie by znamenalo , že " vlákno Completed " by bol prvou správou sa zobrazí . Ako vidíte , kedy je spustený program , to nie je tento prípad .
5
Spustite program " VB závitu Príklad " a kliknite na tlačidlo na formulári . Všimnite si , že " Program Completed " správou sa zobrazí ako prvá . To je preto , že program " splodil " niť , ktorá je stále funkčná , keď je to hotové , že to zobrazí okno so správou . Uistite sa , počítadlo ísť vyššie zvýšiť toto oneskorenie .