Aprire Visual Basic e creare un nuovo progetto applicazione forme . Fare doppio clic sul controllo " pulsante " per aggiungerlo alla vostra forma . Fare doppio clic sul controllo " Label " per aggiungerlo alla forma , anche. 
 2 
 Premere " F7 " per aprire la finestra del codice . Digitare il seguente di dichiarare una nuova classe e creare elementi a livello di classe : 
 
 public class MyEvent 
 
 scatti privati più corto = 0 
 
 privato WithEvents gimmick Come MyEvent 
 
Public Event aggiungereClicca ( ) per
 qualsiasi evento chiamato dalla dichiarazione " RaiseEvent " deve essere dichiarata a livello di classe e di qualsiasi oggetto che gestisce un evento deve utilizzare l'istruzione " WithEvents " . 
 
 
 3 
 Digitare quanto segue nel " Form1 Load " sub : . 
 
 myObject = New MyEvent 
 
 Questo crea un oggetto del " MyEvent " class 
 
 4 
 Digitare quanto segue per creare una nuova sotto : 
 
Public Sub cliccato ( ) per
RaiseEvent aggiungereClicca ( ) per
 End sub 
 
 quando viene chiamato , questa funzione genera l'evento aggiungereClicca hai dichiarato a livello di classe 
 5 
 digitare quanto segue per creare un sub che gestisce l'evento : . 
 
 display private Sub ( ) maniglie myObject.AddClick 
 
 Label1.Text = " volte avete cliccato : " e scatta 
 
End sub 
Programmazione © www.354353.com