Cómo criar a un evento en Visual Basic

En la programación de computadoras , provocar un evento significa llamar a una función de anunciar algo ha sucedido . Subes eventos en Visual Basic mediante la instrucción " RaiseEvent " . Para subir cualquier caso, primero debe declarar su origen en el módulo de la clase , módulo o estructura en la que desea utilizarlo. A partir de ahí , se puede generar el evento desde cualquier lugar dentro de la misma fuente de eventos de su declaración. Asimismo, el uso de una variable " WithEvents " u objeto de manejar los eventos generados . Instrucciones
1

Abra Visual Basic y empezar un nuevo proyecto de aplicación de formularios . Haga doble clic en el control "Button" para agregarlo al formulario. Haga doble clic en el control " Label " para añadirlo a la forma , también.
2

Press " F7 " para abrir la ventana de código . Escriba lo siguiente para declarar una nueva clase y crear elementos en el nivel de clase : public class

MyEvent

clics privadas como Short = 0

Private WithEvents truco Como MyEvent

Pública añadirHacer eventos ( )

cualquier evento convocado por la declaración " RaiseEvent " debe ser declarada a nivel de clase y cualquier objeto que controla un evento debe utilizar la sentencia " WithEvents " .

3

Escriba lo siguiente en el " Form1_Load " sub : .

myObject = New MyEvent

Esto crea un objeto de la " MyEvent " clase

4

Escriba lo siguiente para crear un nuevo sub :

Public Sub CTR ()

RaiseEvent añadirHacer ()

End sub ​​

Cuando es llamado , esta función genera el evento añadirHacer usted declaró en el nivel de clase
5

Escriba lo siguiente para crear un sub que controla el evento : .

Display sub Private () Procesa myObject.AddClick

Label1.Text = "Tiempos que han hecho clic en : " y haga clic

End sub ​​

Cuando el evento " añadirHacer " se eleva , el código en el sub actualiza el texto de Label1
6

Escriba el siguiente para controlar el evento de clic de botón : .

Private Sub Button1_Click ( remitente de ByVal como System.Object , ByVal e como System.EventArgs ) Maneja Button1.Click

clics + = 1

myObject.Clicked ()

End Sub

Cuando el usuario hace clic en el botón , los "clicks" incrementos variables por uno y el objeto llama a la función "clicked " , lo que provoca un evento .