Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustiť Visual Basic a vytvoriť nový model Windows Forms projektu .
2
Pridať " Imports System.Threading " ako prvý riadok v súbore kódu na hlavnom forma .
3
Umiestnite tlačidlo a päť prepínačov na hlavnom formulári . Zmeniť text tlačidla na " Poter tému " a označenie prepínačov " Najnižšia " , " pod normálne " , " Normal " , " Above Normal " a " najvyšší" . Meno prepínačov " RB1 , " " RB2 , " " RB3 , " " RB4 " a " RB5 " resp
4
Pridať tento kód pre tlačidlo click tlačidlá akcie : .
Private Sub Button1_Click ( byval sender Ako System.Object , Bývalá e As System.EventArgs ) Kľuky Button1.Click
Dim t Ako sa závitom
t = new Thread ( AddressOf Me.BackgroundProcess )
Ak rb1.Checked Potom
t.Priority = ThreadPriority.Lowest
ElseIf rb2.Checked Potom
t.Priority = ThreadPriority.BelowNormal
ElseIf rb3.Checked Potom
t.Priority = ThreadPriority.Normal
ElseIf rb4.Checked Potom
t.Priority = ThreadPriority.AboveNormal
ElseIf rb5.Checked Potom
t.Priority = ThreadPriority.Highest
End If
t.Start ( )
End Sub
5
Ďalšie čiastkové rutiny tohto súboru , ako je uvedené tu :
Private Sub BackgroundProcess ( )
Dim f As New WorkerBee
f.Show ( )
End Sub
Všimnite si , že to vytvára ďalšie formulár nazvaný " WorkerBee " , ktorá ešte nebola vytvorená , takže ignorovať chybu teraz .
6
Pridať ďalšie formulár projekt a pomenujte ju " WorkerBee " a umiestniť štítok na formulári s názvom " Label1 . " To by mala byť predvolený názov štítku
7
pridať nasledujúce dva podprogramy kód súboru WorkerBee je : .
Private Sub WorkerBee_Activated ( ByVal sender As Object , byval e ako systém . EventArgs ) Kľuky Me.Activated
" Páči sa činnosť vlákno tu , alebo volajte nejakú inú rutinu ( y )
Dim i As Integer = 1
robiť , keď pravda
Label1.Text = " Iterácia : " + i.ToString
i + = 1
Application.DoEvents ( )
Loop
End Sub
Private Sub WorkerBee_FormClosing ( byVal sender As Object , byval e ako System.Windows.Forms.FormClosingEventArgs ) Kľuky Me.FormClosing
" Prerušiť vlákno , keď zavrie formulár dole , inak app zvyknutý blízko
Thread.CurrentThread.Abort ( )
End Sub
8
spustite aplikáciu. Vyberte rôznych prepínačov a kliknite na tlačidlo , aby sa trela niť s danou prioritou . Všimnite si, ako vlákna s rovnakou prioritou zostať zhruba rovnaký počet od seba na iterácií , ale s vysokou prioritou závit rýchlo rastie cez nízku prioritu vlákne .