Capturar Eventos!!! Urgente!!!
Publicado por Martín R. Comparetto (67 intervenciones) el 18/12/2001 16:35:35
Hola a todos!!!
Mi problema es que no puedo capturar un evento de una dll.
Tengo una dll generada en VB, que abre un form en donde hay unos botones que ejecutan un evento. Mi pregunta es, como se puede agregar un codigo al evento de la dll para que este se ejecute. Estoy trabajando con VFP7. Hay una funcion (nueva) EVENTHANDLER que relaciona los eventos, pero no puedo hacerla funcionar. El código que tengo es este:
PUBLIC oMenuActiveX
PUBLIC oMyMenu
oMyMenu = NEWOBJECT( "MyMenu" )
oMenuActiveX = NEWOBJECT( "MenuActX.clsMenu" )
llRe = EVENTHANDLER( oMenuActiveX, oMyMenu )
IF !( llRe )
= MESSAGEBOX( "Error" )
ENDIF
oMenuActiveX.Iniciar()
RELEASE oMenuActiveX, oMyMenu
RETURN ( .t. )
DEFINE CLASS MyMenu as Custom
PROCEDURE Init()
= MESSAGEBOX( "MyMenu::Init()" )
ENDPROC
IMPLEMENTS clsMenu IN "MenuActX.exe"
PROCEDURE clsMenu_Iniciar()
= MESSAGEBOX( "clsMenu::Iniciar" )
PROCEDURE clsMenu_DispararEvento()
= MESSAGEBOX( "clsMenu::DispararEvento" )
ENDDEFINE
Esto esta bien??? el formulario me lo ejecuta, pero los eventos no..
Muchas gracias!!! Felices Fiestas =)
Mi problema es que no puedo capturar un evento de una dll.
Tengo una dll generada en VB, que abre un form en donde hay unos botones que ejecutan un evento. Mi pregunta es, como se puede agregar un codigo al evento de la dll para que este se ejecute. Estoy trabajando con VFP7. Hay una funcion (nueva) EVENTHANDLER que relaciona los eventos, pero no puedo hacerla funcionar. El código que tengo es este:
PUBLIC oMenuActiveX
PUBLIC oMyMenu
oMyMenu = NEWOBJECT( "MyMenu" )
oMenuActiveX = NEWOBJECT( "MenuActX.clsMenu" )
llRe = EVENTHANDLER( oMenuActiveX, oMyMenu )
IF !( llRe )
= MESSAGEBOX( "Error" )
ENDIF
oMenuActiveX.Iniciar()
RELEASE oMenuActiveX, oMyMenu
RETURN ( .t. )
DEFINE CLASS MyMenu as Custom
PROCEDURE Init()
= MESSAGEBOX( "MyMenu::Init()" )
ENDPROC
IMPLEMENTS clsMenu IN "MenuActX.exe"
PROCEDURE clsMenu_Iniciar()
= MESSAGEBOX( "clsMenu::Iniciar" )
PROCEDURE clsMenu_DispararEvento()
= MESSAGEBOX( "clsMenu::DispararEvento" )
ENDDEFINE
Esto esta bien??? el formulario me lo ejecuta, pero los eventos no..
Muchas gracias!!! Felices Fiestas =)
Valora esta pregunta


0