1 Δημιουργήστε ένα νέο έργο της Visual Basic που βασίζεται στο πρότυπο φόρμας των Windows . 2
Προσθέστε δύο κουμπιά στη φόρμα . Ονομάστε ένα " btnStart " με το κείμενο " Start" και την άλλη " btnStop " και το κείμενο "Stop ".
Εικόνων 3
Προσθήκη " Εισαγωγές System.Threading " στην κορυφή του κώδικα αρχείο.
Η
4 κάντε διπλό κλικ στο κουμπί "Start" και προσθέστε τον ακόλουθο κώδικα :
Private Sub btnStart_Click ( ByVal αποστολέα Όπως System.Object , ByVal e Όπως System.EventArgs ) Λαβές btnStart.Click
t = νέου Θέματος ( AddressOf Me.BackgroundProcess )
t.Start ( )
End Sub
5
δηλώστε τη μεταβλητή " t" ως εξής σε επίπεδο τάξης :
Dim t όπως Θέματος
Η 6
Προσθέστε τον ακόλουθο κώδικα για το " Stop" :
Private Sub btnStop_Click ( ByVal αποστολέα Όπως System.Object , ByVal e Όπως System.EventArgs ) Λαβές btnStop.Click
t.Abort ( )
End Sub
Η 7
Δημιουργήστε την υπο ρουτίνα που πρόκειται να εκτελεστεί ως νήμα , σε αυτή την περίπτωση ονομάζεται " BackgroundProcess : "
Private Sub BackgroundProcess ( )
« Κάντε κάτι μεγάλο εδώ, όπως υπολογίζει Pi έξω σε ένα δισεκατομμύριο ψηφία .
κάνετε Ενώ True
Loop
End Sub
Προφανώς, θα θέλετε να κάνετε κάτι χρήσιμο σε αυτήν την ρουτίνα , δεν είναι μόνο μια άπειρο βρόχο .
8
Εκτελέστε το πρόγραμμα στο πλαίσιο της επεξεργασίας της Visual Basic . Πατήστε το κουμπί " Start" . Δεν θα υπάρχει κάτι που συμβαίνει προφανώς , αλλά να προσπαθήσουμε να κλείσετε το πρόγραμμα . Παρατηρήστε ότι δεν βγείτε από το όλο το δρόμο πίσω στην επεξεργασία στο Visual Studio IDE . Πατήστε το κουμπί "Stop Debugging " στο κουμπί bar του IDE να σταματήσει το πρόγραμμα του δείγματος από την εκτέλεση .
Η 9
Εκτελέστε ξανά το πρόγραμμα και πατήστε το κουμπί "Start" για να ξεκινήσει το νήμα, στη συνέχεια χτύπησε το " Stop" στη φόρμα για να σταματήσει το νήμα. Παρατηρήστε ότι όταν το έντυπο του προγράμματος είναι κλειστό , η IDE πηγαίνει πίσω σε κατάσταση επεξεργασίας , καθώς το πρόγραμμα τρέχει έλυσε .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα