Ako na Multi - Thread v jazyku Visual Basic

V nie tak vzdialenej minulosti , počítače jednoducho simulovať skutočnosť , že boli multitasking . S dvoma jadrami a alebo viac procesormi , počítače už simulovať multitasking , ale v skutočnosti sú multitasking . Operačný systém bude v mnohých prípadoch rozdeliť úlohy pre spustenie na rôznych procesoroch , ale ako vývojár pomocou jazyka Visual Basic . NET nie je možné explicitne multi - thread aplikácie . Pokyny dovolená 1

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 .

• Predchádzajúca strana: Ako vložiť sady dát do tabuľky v programe Visual Basic 
• Ďalšia strana: Ako nainštalovať tlačiarne s VBScript