eventos de applciación

02/06/2010 - 17:40 por Lucas Hernandez | Informe spam
He estado tratando de correr el siguiente codigo

en un modulo de clases
Public WithEvents appEvent As Application

Private Sub appevent_WindowResize(ByVal Wb As Excel.Workbook, ByVal Wn
As Excel.Window)
MsgBox "you have resized excel"
End Sub

despues en un modulo normal

Dim myObject As New ClsAppEvents

Sub testObject()
Set myObject.appEvent = Application
End Sub


corro el proceso testObject sin ningun error

supuestamente esto enseñaría un mensaje diciendo "Usted ha cambiado del
tamaño de su aplicación"

si alguien sabe el porqué esto no está funcionando... por favor
déjenoslo saber
gracias

LH
 

Leer las respuestas

#1 Abraham
02/06/2010 - 22:57 | Informe spam
Una preguntita nates de revisar el codigo... ¿no seria mas facil usar
el evento "WindowResize" del libro?

Saludos

Abraham



On 2 jun, 10:40, Lucas Hernandez wrote:
He estado tratando de correr el siguiente codigo

en un modulo de clases
Public WithEvents appEvent As Application

Private Sub appevent_WindowResize(ByVal Wb As Excel.Workbook, ByVal Wn
As Excel.Window)
            MsgBox "you have resized excel"
End Sub

despues en un modulo normal

Dim myObject As New ClsAppEvents

Sub testObject()
    Set myObject.appEvent = Application
End Sub


corro el proceso testObject sin ningun error

supuestamente esto enseñaría un mensaje diciendo "Usted ha cambiado del
tamaño de su aplicación"

si alguien sabe el porqué esto no está funcionando... por favor
déjenoslo saber
gracias

LH

Preguntas similares