Backcolor

[Alexandre]

Bonsoir tlm

J'aimerai, pour rendre plus jolie mon application, que les boutons changent de couleur au passage de la souris.
ca, je crois que c'est :

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.BackColor = numérodelacouleur
End Sub

Comment faire pour que le bouton reprenne sa couleur initiale quand la souris n'est + dessus ?

De plus, comment est géré le numéro de la couleur ?
je sais que 1 c noir, 0 blanc... il faut tout mettre en hexadécimal ? ou ya + simple ? ..

Merci !

Alex

 

[Eric C]

Bonjour le forum
Bonjour Alexandre

Un petit fichier pour te familiariser avec les couleurs.
Bon W.End à tous.
@ ++ Eric C

 

[Lord Nelson]

Salut,
Intercepter le passage de la souris c'est simple avec MouseMove mais il est difficile de remettre les choses en place faute d'évènement "MouseOver".
Tu dois dois donc redonner à tous les objets leur couleur initiale à chaque occurrence de MouseMove. Ce n'est pas difficile mais le code devient vite assez long....
Par exemple :

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.BackColor = QBColor(7)
CommandButton3.BackColor = QBColor(7)
CommandButton2.BackColor = QBColor(7)
End Sub
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.BackColor = vbBlue
CommandButton2.BackColor = QBColor(7)
CommandButton3.BackColor = QBColor(7)
End Sub
Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.BackColor = QBColor(7)
CommandButton2.BackColor = vbBlue
CommandButton3.BackColor = QBColor(7)
End Sub
Private Sub CommandButton3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.BackColor = QBColor(7)
CommandButton2.BackColor = QBColor(7)
CommandButton3.BackColor = vbBlue
End Sub

A+

 

[Eric C]

Bonjour le forum
Bonjour Alexandre & Lord Nelson

Pour ma part, je suis preneur. En plein boum cause démanagement (ouf ouf ouf), j'ai tenté de décortiquer la métode de Thierry (USF Elections professionnelles) mais j'ai abandonné faute de temps & aussi de compréhension de code (I'm newbee).

@ ++ Eric C