Relativamente hablando, el uso de eventos es relativamente simple. Antes de usarlo, primero debemos definir el evento, lo que significa informar a Visual Basic qué evento se llama. Un evento puede tener sus propios parámetros. Por ejemplo, un botón Comando tiene un evento Click, que no tiene parámetros. Además, el cuadro de edición de texto tiene un evento KeyPRess, que maneja el contenido relacionado a través de un valor llamado "KeyAscii".
Para definir un evento, agregue código similar al siguiente en la sección de declaración general de una clase:
Luego llame al método RaiseEvent en el código para activar un evento. Al igual que el siguiente código:
Para ilustrar mejor el proceso anterior de agregar y activar eventos, tomemos un ejemplo. Primero, defina un evento:
Agregue el siguiente código en la sección de declaración general de la clase CDog:
Agregue el subproceso Sleep en la clase CDog:
En el código, algunos bucles inútiles se realizan 1.000.000 de veces al principio. Después de que la computadora se detiene brevemente, el subproceso de suspensión activa el evento Despertar.
Pero después de que ocurre el evento Awake, ¿deberíamos dejar que el programa responda en consecuencia? Por supuesto, usar un botón de comando es más fácil: simplemente seleccione el objeto del botón de comando en la lista en la ventana de código.
Pero en ese caso, definitivamente necesitamos un control, y todo lo que vemos está en el formulario. Aquí usamos puramente el código correspondiente y es invisible.
Por supuesto, usar código para recibir eventos requiere operaciones adicionales:
En la sección Declaraciones comunes de la ventana de código de formulario, agregue el siguiente código:
Este código es diferente de la declaración MyDog anterior. Tiene la palabra clave WithEvents utilizada para informar a Visual Basic que el objeto puede recibir cualquier evento y que el objeto debe recibir el evento.
Elimine todo el código en el botón de comando; y agregue el siguiente código en Comando1:
El código simplemente configura MyDog en una nueva instancia de CDog, establece el Nombre, llama a Bark y finalmente ejecuta el subproceso Sleep.
Ahora agregue algo de código para responder al evento Awake.
En la ventana Código de formulario, seleccione "MyDog" de la lista desplegable de objetos;
En el evento "Despierto" de "MyDog", agregue el siguiente código:
Bien, ahora es el momento de probar.
Presione F5 para ejecutar el programa;
Haga clic en el botón Comando;
De esta forma, cuando el cachorro ladra, comienza a dormir la siesta y al final lo despiertas. ¡Es asombroso!
->