|  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programmering
  • C /C + + -programmering
  • Computer Programspråk
  • Delphi Programmering
  • Java Programming
  • JavaScript programmering
  • PHP /MySQL Programmering
  • perl Programmering
  • python Programming
  • Ruby programmering
  • Visual Basics Programmering
  • * Dator Kunskap >> Programmering >> Visual Basics Programmering >> Content

    Hur Multi - Thread i Visual Basic

    I en inte så avlägsen förflutna , datorer helt enkelt simuleras det faktum att de var multitasking . Med dubbla kärnor och eller flera processorer , datorer inte längre simulera multitasking , de faktiskt multitasking . I många fall operativsystemet kommer att dela uppgifter fram för att köras på olika processorer , men som utvecklare använda Visual Basic . NET är det inte möjligt att explicit multi-tråd ansökan . Instruktioner
    1

    Starta Visual Basic och skapa ett nytt Windows Forms projektet .
    2

    Lägg " Import System.Threading " som den första raden i koden fil för den huvudsakliga formulär . Addera 3

    Placera en knapp och fem knappar radio på huvudformuläret . Ändra knappen texten till " Spawn Thread " och etiketten radioknapparna " Lägsta ", " lägre än normalt ", " Normal ", " Above Normal " och " Högsta ". Namnge radio knappar " RB1 , " " RB2 , " " RB3 , " " RB4 " och " RB5 " respektive
    4

    Lägg denna kod för knappens klick åtgärd : .

    Private Sub Button1_Click ( ByVal avsändaren som System.Object , ByVal e Som System.EventArgs ) Handtag Button1.Click

    Dim t Som Thread

    t = Nytt Inlägg ( AddressOf Me.BackgroundProcess )

    Om rb1.Checked Sedan

    t.Priority = ThreadPriority.Lowest

    ElseIf rb2.Checked Sedan

    t.Priority = ThreadPriority.BelowNormal
    < p> ElseIf rb3.Checked Sedan

    t.Priority = ThreadPriority.Normal

    ElseIf rb4.Checked Sedan

    t.Priority = ThreadPriority.AboveNormal

    ElseIf rb5.Checked Sedan

    t.Priority = ThreadPriority.Highest

    End If

    t.Start ( ) katalog

    End Sub

    5

    annan sub rutin till denna fil som anges här :

    Private sub BackgroundProcess ( ) katalog

    Dim f som New WorkerBee

    f.Show ( )

    End Sub

    Observera att detta skapar en annan form som kallas " WorkerBee " som inte har skapats än , så ignorera felet för nu .
    6

    Lägg annan form för att projektet och namnet det " WorkerBee " och placera en etikett på blankett som heter " LABEL1 . " Detta borde vara standard namn för etiketten
    7

    Lägg till följande två subrutiner till WorkerBee kod fil : .

    Private Sub WorkerBee_Activated ( ByVal avsändare As Object , ByVal e som System . EventArgs ) Hanterar Me.Activated

    " Gör aktiviteten av tråden här , eller ring någon annan rutin ( er) från

    Dim i As Integer = 1

    Do While sanna

    Label1.Text = " Iterationer : " + i.ToString

    i + = 1

    Application.DoEvents ( ) katalog

    Loop

    End Sub

    Private Sub WorkerBee_FormClosing ( ByVal avsändare As Object , ByVal e Som System.Windows.Forms.FormClosingEventArgs ) hanterar Me.FormClosing

    " Abort tråden när formuläret stängs ned , annars appen brukar stänga

    Thread.CurrentThread.Abort ( ) katalog

    End Sub
    8

    Kör programmet . Välj olika radioknappar och klicka på knappen för att leka tråden med den prioriteras . Lägg märke till hur trådar med samma prioritet vistelsen ungefär samma antal isär på iterationer , men en högprioriterad tråd snabbt ökar över en låg prioritet tråd .

    Tidigare:

    nästa:
    relaterade artiklar
    ·Hur man använder VBScript Plats Object
    ·Hur man använder en textruta för filnamn VB6
    ·Hur man skapar ActiveX i VB
    ·Hur man skapar en ActiveX-kontroll i VB
    ·Hur man gör en romerska siffror Converter i VB Code
    ·Så här importerar VBScript Into VB Express
    ·Hur man gör en skärmsläckare i Visual Basic 2010
    ·Hur man gör ett Visual Basic Ansökan om Lösenordssky…
    ·Hur får man en fullständig sökväg i VB6
    ·Hur man programmerar en vertikal rullningslist med en t…
    Utvalda artiklarna
    ·Vad är en klient Proxy
    ·Hur man använder alternativknappar i Visual C
    ·Hur Bläddra till en rad i en DataGridView
    ·Hur dölja Non - arbetstiden i en Outlook 2003 kalender…
    ·Definition av PHP
    ·MySQL Perl Tutorial
    ·Hur man skapar ett datorprogram From Scratch
    ·Prolog Språk Tutorial
    ·Hur skicka flera parametrar från HTML-formulär med GE…
    ·Hur man gör en katalog i Perl Med Script
    Copyright © Dator Kunskap http://www.dator.xyz