Cambiar el color de CommandButton en un UserForm al pasar el mouse y volver al color original cuando el mouse no este sobre él
He logrado cambiar el color del commandbutton en un UsrForm al poner el maouse sobre él, usando CommandButton_MouseMove, pero el botón cambia y se queda así y no logro que regrese al color original cuando el puntero del mouse no está sobre él.
Me podrían ayudar con éste tema, la verda no se si es posible hacer esto.
2 respuestas
Respuesta de Dante Amor
1
Esta sería una manera, cuando pasas el mouse por el botón se pone azul, cuando pasas el mouse por el userform se pone rojo.
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) CommandButton1.BackColor = vbBlue End Sub ' Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) CommandButton1.BackColor = vbRed End Sub
Respuesta de Abraham Valencia
1
[Hola
Mira esto, del conocido Hector Miguel:
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 .BackColor = &H80FF& _ Else .BackColor = &H8000000F End With End Sub
Solo ajusta los códigos hexadecimales de color a los que tú necesites, así como las distancias (5) usadas ahí.
Abraham Valencia