Sur la feuille Excel, j'ai collé un controle Image "Image1". Sur ce controle "Image1", j'ai collé un bouton "CommandButton1" (dimensions de Image1 légèrement supérieures aux dimensions du bouton).
Dans le code de la feuille:
Code :
- Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
- ' Passe le bouton en jaune clair
- CommandButton1.BackColor = &H80000018
- End Sub
- Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
- ' Repasse le bouton en gris std.
- CommandButton1.BackColor = &H8000000F
- End Sub
|
En fait, lorsque la souris passe sur le bouton, l'évènement MouseMove du bouton se declenche. Lorsque la souris quitte le bouton, elle "survole" le controle image qui déclenche son évènement MouseMove.
---------------
J'ai un message.."Cliquez OK pour continuer."...Qu'est ce que je fais ?
