Mostrar imagen al posicionar el mouse sobre un objeto.

09/03/2008 - 20:54 por FeCel | Informe spam
Hola a todos,

Tengo un Userform con varios CommandButtons. Quisiera que cuando el cursor
del mouse está sobre el CommandButton1 (sin necesidad de clickearlo) se
despliegue en pantalla una imagen (o un archivo pdf, o una hoja de la
planilla), y que cuando el cursor se desplace a otro sitio, desaparezca la
imagen y nuevamente quede visible el Userform.

Prové con esta secuencia, insertando la imagen en el formulario UserForm2.
Sin embargo, no me sirve porque requiere cerrar el UserForm2 para volver al
UserForm1. Es decir, si muevo el cursor, se mantiene en pantalla el UserForm2
hasta cerrarlo, y necesito que se cierre solo.

Private Sub CommandButton1_MouseMove( ByVal Button As Integer, ByVal Shift
As Integer, ByVal X As Single, ByVal Y As Single)
With CommandButton1
If (X >= 5 And Y >= 5) And (X <= .Width - 5 And Y <= .Height - 5) _
Then Userform2.Show Else UserForm1.Repaint
End With
End Sub


Muchas gracias de antemano por cualquier ayuda.
 

Leer las respuestas

#1 Héctor Miguel
09/03/2008 - 22:51 | Informe spam
hola, !

1) tu objetivo principal, ya lo conseguiste:
que se muestre OTRO objeto (Userform2) al "pasear" el mouse sobre tu commandbutton1 (Userform1)

2) para tu segundo objetivo:
que Userform2 se oculte por acciones de "quitar" el mouse de encima de tu commadbutton1 (en el Userform1)

a) los eventos del Userform1 NO estan activos debido a que ha pasado a segundo plano al mostrar el Userform2
b) a menos que le regreses "el foco" al Userform1... tienes que usar los eventos del Userform2 (o cerrarlo en manual)
(y tendrias que estar atento a si el Userform2 esta visible al accionar los eventos de "ocultacion" desde el Userform1) <= OJO

(creo que) te seldria mas "barato" usar la imagen dentro del mismo Userform1...
-> p.e. ampliando/reduciendo el campo visual del Userform1 cuando el mouse se "pasea" dentro/fuera del commandbutton1 -???-

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ la consulta original __
Tengo un Userform con varios CommandButtons.
Quisiera que cuando el cursor del mouse esta sobre el CommandButton1 (sin necesidad de clickearlo)
se despliegue en pantalla una imagen (o un archivo pdf, o una hoja de la planilla)
y que cuando el cursor se desplace a otro sitio, desaparezca la imagen y nuevamente quede visible el Userform.
Prove con esta secuencia, insertando la imagen en el formulario UserForm2.
Sin embargo, no me sirve porque requiere cerrar el UserForm2 para volver al UserForm1.
Es decir, si muevo el cursor, se mantiene en pantalla el UserForm2 hasta cerrarlo, y necesito que se cierre solo.

Private Sub CommandButton1_MouseMove( ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With CommandButton1
If (X >= 5 And Y >= 5) And (X <= .Width - 5 And Y <= .Height - 5) _
Then Userform2.Show Else UserForm1.Repaint
End With
End Sub

Preguntas similares