Private Sub Cmd_Retour_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Cmd_Retour.BackColor = &HFF& 'Rouge End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Cmd_reset.BackColor = &H8000000F 'Gris initialisation Cmd_Retour.BackColor = &H8000000F 'Gris initilaisation Marche_3.BackColor = &HFF& 'Rouge Marche_3.FontBold = False 'texte gras If Marche_1.BackColor = &HFF& Then Marche_2.BackColor = &HFF00& 'Vert Marche_2.FontBold = True 'texte gras End If End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question