1 Ανοίξτε το Microsoft Visual Basic Express , επιλέξτε από το μενού "Αρχείο" και κάντε κλικ στο "New Project ". Επιλέξτε " Visual Basic " υπό τον τίτλο " Εγκατεστημένα πρότυπα " και στη συνέχεια κάντε διπλό κλικ στο " Class Library " φαίνεται στη μέση του "New Project " Παράθυρο 2
Πληκτρολογήστε την ακόλουθη παραπάνω "Δημόσια Τάξη Class1 " . :
Εισαγωγές σύστημα
Εισαγωγές System.Threading
εικόνων 3
αντιγραφή και επικόλληση του παρακάτω υπό τον τίτλο " Δημόσια Τάξη Class1 " :
Private Sub CntrFunc ( )
Dim iCntr As Integer
Dim threadState Όπως String
Για iCntr = 1 Για 70000
Αν iCntr Mod 7000 = 0 τότε
threadState = Thread.CurrentThread.ThreadState.ToString
Console.WriteLine ( "Counter : " + threadState )
End If
Επόμενο
End Sub
Αυτή η ρουτίνα θα πρέπει να ξεκίνησε ως ένα νήμα και να εκτελέσει ένα για την μέθοδο loop .
Η 4
Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε ένα τη λειτουργία που θα ξεκινήσει το νήμα " CntrFunc " και παρακολουθεί την κατάσταση μέχρι να γίνει :
createThreadInDLL Public Function ( ) Όπως String Dim
threadstate Όπως String Dim
tr Όπως νέου Θέματος ( AddressOf CntrFunc )
tr.Start ( )
Ενώ tr.IsAlive
Thread.CurrentThread.Sleep ( 200 )
End Ενώ
threadstate = tr.ThreadState . ToString
createThreadInDLL = " Νήμα γίνεται θέμα είναι : " + _
threadstate
End Function
Η
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα