VB6 necesito algo similar a un Mouse over en un botón

[KaRPiN]

Bueno aquí de nuevo con mis preguntas de novatillo; ésta es la de hoy:

¿Alguien sabe como podría cambiar el color de un botón cuando pasa el cursor por encima de ese botón?

Gracias anticipadas por vuestra paciencia.

[spawn]

Mira buscate los OCX de Sheridad los Active Threed Plus y alli ya hay un SSCommand que solo necesitas habilitarle esas opciones a mi me gusta mas que a puro codigo y son 90% Flexibles.-


Salup

[gustavoazcona]

Para cambiar el color de un botón de comando, primero debés cambiar su propiedad Style a 1 - Graphic .

Luego copiá este código:

Código:

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Command1.BackColor = vbRed
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Command1.BackColor = vbBlue
End Sub

Lamentablemente, no existe un evento MouseOver, lo que hago es que cuando pasa el mouse por encima del botón cambio su color de fondo a rojo, y cuando el mouse pasa por el formulario lo cambio a azul.

Por supuesto, vos tendrás que elegir tus propios colores.

Y antes de que preguntes, no podés cambiarle el color al texto del botón, lo siento.

Mejor usá la Librería Microsoft Forms 2.0 que incluye la mayoría de los controles estándar y además te permite crear controles transparentes, aplicar algunos efectos y otras cosillas interesantes.

Saludos

[KaRPiN]

Muchas gracias por ambas soluciones, me han sido de gran ayuda.