Las clases también pueden tener eventos, ya que los controles son clases con interfaz gráfica.
Si se define un evento en una clase luego se puede responder al evento desde un formulario u otro objeto declarando la variable como WithEvents.
En el caso anterior cuando se aprete el botón cmdTest se va a llamar al método HacerAlgo del objeto, por consiguiente se va a desencadenar el evento MiEvento.
Saludos.
hola entendi todo lo de focos pero tu vodigo ??? no lo entendi podrias por fa explicarlo espero q si byessss Si se define un evento en una clase luego se puede responder al evento desde un formulario u otro objeto declarando la variable como WithEvents.
Código:
'
'Objeto MyObject
'
Event MiEvento()
Sub HacerAlgo()
RaiseEvent MiEvento
End Sub
Código:
'
'Formulario frmMain
'
Private csObject As MyObject
Private Sub Form_Load()
Set csObject = New MyObject
End Sub
Private Sub cmdTest_Click()
Call csObject.HacerAlgo
End Sub
Private Sub csObject_MiEvento()
Call MsgBox("Se desencadenó el evento del objeto", vbInformation)
End Sub
En el caso anterior cuando se aprete el botón cmdTest se va a llamar al método HacerAlgo del objeto, por consiguiente se va a desencadenar el evento MiEvento.
Saludos.