Tecnología

Inicio

Cómo criar a un evento en Visual Basic

November 25

En la programación de computadora, levantar un evento significa llamar a una función de anunciar algo ha sucedido. Levantas eventos en Visual Basic utilizando la instrucción "RaiseEvent". Para elevar todo 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í, puede provocar el evento desde cualquier lugar dentro de la misma fuente evento de su declaración. Asimismo, el uso de un "WithEvents« variable u objeto para controlar los eventos planteados.

Instrucciones

1 Abra Visual Basic y comenzar un nuevo proyecto de aplicación de formularios. Haga doble clic en el control "botón" para añadirlo a su forma. Haga doble clic en el control "Etiqueta" para añadirlo a la forma, también.

2 Pulse la tecla "F7" para abrir la ventana de código. Escriba lo siguiente para declarar una nueva clase y crear partidas a nivel de clase:

Clase pública MyEvent

clics privados lo más corto = 0

WithEvents privada truco Como MyEvent

Pública añadirHacer Evento ()

Cualquier evento llamado por el "RaiseEvent" declaración debe ser declarada a nivel de clase y cualquier objeto que maneja un evento debe utilizar el "WithEvents" comunicado.

3 Escriba lo siguiente en el sub "Form1_Load":

myObject = Nueva MyEvent

Esto crea un objeto de la clase "MyEvent".

4 Escribe lo siguiente para crear un nuevo sub:

Public Sub Clicked ()

RaiseEvent añadirHacer ()

End Sub

Cuando se le llama, esta función genera el evento añadirHacer declaraste a nivel de clase.

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

Private Sub Pantalla () Maneja myObject.AddClick

Label1.Text = "Los tiempos que han hecho clic:" & clics

End Sub

Cuando se provoca el evento "añadirHacer", el código de la sub actualiza el texto en Label1.

6 Escribe lo siguiente para controlar el evento de clic de botón:

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

clics + 1 =

myObject.Clicked ()

End Sub

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