Observer (gb)

Esta classe permite que você capture os eventos gerados por um objeto antes do observador de evento principal recebê-los.

O objeto observador vai levantar os mesmos eventos que o objeto observado, sendo assim, você vai lidar com os mesmos manipuladores de eventos.

Se você cancelar um evento no manipulador de eventos do observador, o observador de evento principal, do objeto observado nunca vai vê-lo.

Veja o código fonte do controle TableView para um exemplo: ele é implementado usando este método.

O objeto observador está ligado ao objeto observado, e é liberada somente quando o objeto observado é liberado.

Esta classe é criável.

Propriedades
Object   Retorna o objeto observado pelo observador.
Tag   Retorna ou define a tag do observador.

Métodos
Detach  

Examplo

Public Sub Form_Open()
Dim sTeste As Observer

  sTeste = New Observer(Nome_Controle) As "Teste"

End

Public Sub Teste_Click()

  Print "Evento Click do observador"

End