Aprire Microsoft Visual Basic Express, selezionare il menu "File" e cliccare " Nuovo progetto ". Selezionare " Visual Basic " in " Modelli installati ", quindi fare doppio clic su " Class Library " mostrata nel mezzo del " Nuovo Progetto " Finestra
2
Digitare il seguente sopra " Public Class Class1 " . :
Imports System Imports
System.Threading
3
Copia e incolla il seguente sotto " Public Class Class1 " :
privato sub CntrFunc ( ) per
Dim iCntr As Integer Dim
ThreadState As String
iCntr = 1 To 70000
iCntr Mod. 7000 = 0 Then
ThreadState = Thread.CurrentThread.ThreadState.ToString
Console.WriteLine ( "Counter : " + ThreadState ) per
End If
Avanti
End Sub
Questa subroutine viene avviato come un filo ed eseguire un ciclo For .
4
digitare quanto segue per creare una funzione che inizierà il thread " CntrFunc " e monitorare il suo stato finché non è finito :
Public Function createThreadInDLL ( ) As String Dim
ThreadState As String
Dim tr As New Thread ( AddressOf CntrFunc ) per
tr.Start ( ) per
Mentre tr.IsAlive
Thread.CurrentThread.Sleep ( 200 ) per
End While
ThreadState = tr.ThreadState . ToString
createThreadInDLL = " Discussione avviene discussione è : " + _
ThreadState
End Function
Programmazione © www.354353.com