Al mover el mouse
Hola, espero que me puedas ayudar... Tengo en un botón de comando lo siguiente:
Private Sub Comando6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim stAppName As String
stAppName = "c:\WINDOWS\Cursores\harrow1.cur"
CambiaCursor stAppName
End Sub
Con esto consigo que al poner el mouse sobre este comando cambie el cursor... BIEN LO QUE QUIERO ES TB CAMBIAR LA IMAGEN DE ESTE COMANDO pero que al mover el mouse vuelva a verse la imagen anterior... Como PUEDO CONSEGUIR HACER ESTO... Otra duda... COMO PUEDO HACER DESAPARECER UN BOTÓN DE COMANDO EN UN FORMULARIO PERO QUE AL MOVER EL MOUSE POR CIERTA ZONA APAREZCA Y DESAPAREZCA CUANDO SALGA DE ESA ZONA... Gracias por todo... FELICES FIESTAS!
Private Sub Comando6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim stAppName As String
stAppName = "c:\WINDOWS\Cursores\harrow1.cur"
CambiaCursor stAppName
End Sub
Con esto consigo que al poner el mouse sobre este comando cambie el cursor... BIEN LO QUE QUIERO ES TB CAMBIAR LA IMAGEN DE ESTE COMANDO pero que al mover el mouse vuelva a verse la imagen anterior... Como PUEDO CONSEGUIR HACER ESTO... Otra duda... COMO PUEDO HACER DESAPARECER UN BOTÓN DE COMANDO EN UN FORMULARIO PERO QUE AL MOVER EL MOUSE POR CIERTA ZONA APAREZCA Y DESAPAREZCA CUANDO SALGA DE ESA ZONA... Gracias por todo... FELICES FIESTAS!
1 Respuesta
Respuesta de soria4xse
1
A tu segunda duda: el comando0 es invisible por diseño, se hace visible solo cuando muevo el cursor por el comando1, y vuelve a ser invisible cuando me meuevo fuera.
Private Sub Comando1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Comando0.Visible = True
End Sub
Private Sub Detalle_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Comando0.Visible = False
End Sub
Solo contesto preguntas de una en una, porque respondo más de 10 preguntas al día pero de media me cierran 3 ó 4. Así que primero cierra y valora esta, y luego vuelve a preguntar la primera.
Private Sub Comando1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Comando0.Visible = True
End Sub
Private Sub Detalle_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Comando0.Visible = False
End Sub
Solo contesto preguntas de una en una, porque respondo más de 10 preguntas al día pero de media me cierran 3 ó 4. Así que primero cierra y valora esta, y luego vuelve a preguntar la primera.
