modifico shape

[nacha4]

tengo que hacer que cada ves que se modifique el color de shape por cualquier razon aparesca un cartelito en MsgBox yo hice esto:


If Shape1.BackColor = &HFF& Then
    MsgBox "Hola"
    End If

pero no se en que metodo ponerlo no con que evento
espero respuesta

[LordLafebre]

Hola:

Ponlo dentro de un timer, se me ocurre eso...

[nacha4]

lo que pasa es que el suceso tiene que pasar una sola ves que es cuando cambia de color, si lo pongo en timer cada un ms envia el mensaje, que puedo hacer

[LordLafebre]

Hola:

Prueba a desabilitar el timer cuando el shape tenga el color que quieras...

Codigo:Private Sub Timer1_Timer()
    If Shape1.BackColor = &HFF& Then
        MsgBox "hola"
        Timer1.Enabled = False
    End If
End Sub

[BrunoF]

Hola, y dime, hay algun evento que produzca el cambio de color del shape?
Que es lo que modifica el cambio de color del shape? un command button? ? Saludos.

[LordLafebre]

Hola:

Lo malo es que el shape no genera eventos...

[BrunoF]

Escrito originalmente por LordLafebreHola:

Lo malo es que el shape no genera eventos...

Nono Gio, me entendiste mal.

Escrito originalmente por BrunoFHola, y dime, hay algun evento que produzca el cambio de color del shape? Que es lo que modifica el cambio de color del shape? un command button? ? Saludos.

Me referia al hecho de si por ejemplo, el codigo de cambio del color del shape (shape1.backcolor = XXXXXX) estaba en el evento "click" de un command button para detectar y ya dar aviso si el color del shape es el que quiere detectar.Saludos

[LordLafebre]

hola:

je je... pasa por leer rapido el post...