Figura 127. Seleccionar objeto declarado WithEvents. |
Figura 128. Seleccionar el evento a codificar. |
Public Sub moEmple_LimiteSueldo(ByVal ldbImporte As Double) Handles
moEmple.LimiteSueldo
End Sub
Código fuente 335
Como hemos escrito el manipulador de evento para el objeto Empleado en un módulo, vamos ahora a
escribir un procedimiento Main(), instanciando en el mismo, un objeto de esta clase. Asignaremos en
primer lugar, un valor correcto a la propiedad Sueldo, y a continuación un valor que provocará el evento en la clase. Recomendamos al lector que ejecute el código línea a línea con el depurador, para
observar el efecto cuando se produzca el evento.
Sub Main()
moEmple = New Empleado()
moEmple.Nombre = "Juan"
moEmple.Sueldo = 500 ' esta asignación no provoca el evento
moEmple.Sueldo = 8000 ' esta sí provoca el evento
End Sub
Código fuente 336
No hay comentarios:
Publicar un comentario