Πώς να θέσω ένα γεγονός σε Visual Basic

Σε προγραμματισμός ηλεκτρονικών υπολογιστών , αυξάνοντας μια εκδήλωση μέσα για να καλέσετε μια συνάρτηση να ανακοινώσει κάτι έχει συμβεί . Θα αυξήσει τα γεγονότα στη Visual Basic , χρησιμοποιώντας το " RaiseEvent " δήλωση. Για να αυξηθεί κάθε είδους εκδήλωση, θα πρέπει πρώτα να δηλώσει την πηγή του σε επίπεδο λειτουργικής μονάδας της τάξης , ενότητα ή τη δομή στην οποία θέλετε να το χρησιμοποιήσετε . Από εκεί , μπορείτε να αυξήσετε την εκδήλωση από οπουδήποτε μέσα στην ίδια πηγή περίπτωση δήλωσή του . Επίσης , χρησιμοποιούν ένα " WithEvents " μεταβλητή ή αντικείμενο για να χειριστεί έθεσε γεγονότα . Οδηγίες
Η 1

Ανοίξτε Visual Basic και να ξεκινήσετε ένα νέο έργο έντυπα αίτησης . Κάντε διπλό κλικ στο " κουμπί" ελέγχου για να το προσθέσετε στη φόρμα σας . Κάντε διπλό κλικ το «σήμα» ελέγχου για να το προσθέσετε στη φόρμα , πάρα πολύ . 2

Πατήστε " F7 " για να ανοίξετε το παράθυρο κώδικα . Πληκτρολογήστε το παρακάτω, για να δηλώσει μια νέα κατηγορία και να δημιουργήσουν τα στοιχεία σε επίπεδο τάξης :

Δημόσιας Τάξης MyEvent

ιδιωτικούς κλικ Όπως Short = 0

Private WithEvents τέχνασμα Όπως MyEvent

δημόσια εκδήλωση AddClick ( )

κάθε εκδήλωση που ονομάζεται από το " RaiseEvent " δήλωση πρέπει να δηλώνονται στο επίπεδο της τάξης και κάθε αντικειμένου που χειρίζεται ένα γεγονός πρέπει να χρησιμοποιούν τις " WithEvents " δήλωση.

με 3

Πληκτρολογήστε τα ακόλουθα στο « Form1_Load " υπο : .

MyObject = Νέα MyEvent

Αυτό δημιουργεί ένα αντικείμενο της κλάσης " MyEvent "

4

Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε ένα νέο sub :

Public Sub κλικ σε ( )

RaiseEvent AddClick ( )

End Sub

όταν καλείται , η λειτουργία αυτή αυξάνει την εκδήλωση AddClick δηλώσατε στο επίπεδο της τάξης
5

Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε ένα sub που χειρίζεται την εκδήλωση : .

Private Sub Display ( ) λαβές myObject.AddClick

Label1.Text = " Times έχετε κάνει κλικ : " & κλικ

End Sub

Όταν η « AddClick " συμβάν αυξάνεται , ο κώδικας στην υπο ενημερώνει το κείμενο για Label1
Η 6

Πληκτρολογήστε το παρακάτω για να χειριστεί το κλικ το κουμπί εκδήλωση : .

Private Sub Button1_Click ( ByVal αποστολέα Όπως System.Object , ByVal e Όπως System.EventArgs ) Λαβές Button1.Click

κλικ + = 1

myObject.Clicked ( )

End Sub

Όταν ο χρήστης κάνει κλικ στο κουμπί , το " κλικ " μεταβλητή αυξάνεται ανά μία μονάδα και το αντικείμενο αποκαλεί « κλικ σε " λειτουργία, η οποία δημιουργεί ένα γεγονός .
Η
εικόνων