lunes, 14 de marzo de 2016

Ejemplo de clase Observer


Los Observadores son objetos que le permiten interceptar eventos lanzados por otros objetos, es decir que los "observan".
Puede interceptar eventos justo antes o después de que sean lanzados.
Por cada evento interceptado el observador lanzará un evento con el mismo nombre y los mismos argumentos.
Puede cancelar el evento original al usar STOP EVENT dentro del manejador de evento del observador.


' gambas class file

'by postapase

Private $hObserver As Observer

Public Sub Form_Open()

$hObserver = New Observer(Button1) As "Observador"

End

Public Sub Observador_Click()

If CheckBox1.Value Then
Debug "Se hizo clic en el botón. ¡Cancelo el evento!" & "(Observador Activado)"
Stop Event
Else
Debug "(El observador esta desactivado!)"
Endif

End

Public Sub Button1_Click()
Print "Me ves porque el Observador esta desactivado"
End


Código fuente en la Granja de Gambas.

No hay comentarios.:

Publicar un comentario

www.gambas-es.org

www.gambas-es.org
Si quieres que tu curva de aprendizaje sea rápida, regístrate en este gran foro en español.