Label steel
Hola experto, espero que este bien.
A ver le comento, hay algunos programas por ejemplo el que uso yo (maximice) que tiene unos botones que sobresalen cuando paso el mouse por encima y la verdad me gustaría hacer lo mismo con un userform, quizás con un laber se pude hacer ¿me explico? Que el botón en su formato es plano pero al momento de pasar el mouse encima como que sobresalen.
De antemano muchas gracias !
A ver le comento, hay algunos programas por ejemplo el que uso yo (maximice) que tiene unos botones que sobresalen cuando paso el mouse por encima y la verdad me gustaría hacer lo mismo con un userform, quizás con un laber se pude hacer ¿me explico? Que el botón en su formato es plano pero al momento de pasar el mouse encima como que sobresalen.
De antemano muchas gracias !
1 Respuesta
Respuesta de Abraham Valencia
1
Los botones y las etiquetas no tienen un evento preciso (como las web por ejemplo) que sea parecido a un "al pasar el puntero", pero tiene eventos como: MouseMove, MouseUp y MouseDown que adaptnadolos adecuadamente, te permiten ir variando algunas propiedades de los objetos
Abraham
Abraham
Ok, le entiendo perfectamente, pero de que forma se puede hacer.. mire, yo trate de poner dos label uno sobre otro y con la función _mousemove hice algo. Pero como que no me funciona mucho.. de que otra forma lo puedo hacer avalenciape... Gracias !
Prueba con algo así en un botón (CommandButton1):
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 = &HFF& _
Else .BackColor = &H8000000A
End With
End Sub
Hummm... si mal no recuerdo este código me lo paso Hecto Miguel ;)
Abraham
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 = &HFF& _
Else .BackColor = &H8000000A
End With
End Sub
Hummm... si mal no recuerdo este código me lo paso Hecto Miguel ;)
Abraham
