1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
|
'en remplacant bien sur CommandButton5 par le nom de ton bouton activex
'à repeter pour chaque bouton
'cette procedure sera appelée dès que le curseur de la souris passera sur le bouton "CommandButton5"
Private Sub CommandButton5_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'changement de la couleur de fond du bouton
Me.CommandButton5.BackColor = RGB(200, 200, 255)
End Sub
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
...
End Sub
Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'dès que la souris passe au dessus du détail du formulaire
'les boutons reprennent leur couleur initiale
Me.CommandButton1.BackColor = RGB(255, 255, 255)
Me.CommandButton2.BackColor = RGB(255, 255, 255)
Me.CommandButton3.BackColor = RGB(255, 255, 255)
Me.CommandButton4.BackColor = RGB(255, 255, 255)
Me.CommandButton5.BackColor = RGB(255, 255, 255)
End Sub |
Partager