Couleur bouton VB6

Change la propriété Style du bouton en Graphical

sur l'évènement MouseMove du bouton, affecte la valeur d'un couleur à la propriété BackColor.

Exemple :

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
      Command1.BackColor = vbRed
End Sub

Salut,

Testes ce code s'il te convient

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If X < 10 Or X > CommandButton1.Width - 10 Or Y < 10 Or Y > CommandButton1.Height - 10 Then
CommandButton1.BackColor = &H8000000F
Else
CommandButton1.BackColor = &HFF&
End If
End Sub

Mike-31 : merci pr la reponse mais j'ai une erreur sur cette ligne
If X < 10 Or X > CommandButton1.Width - 10 Or Y < 10 Or Y > CommandButton1.Height - 10

c'est quoi le 10 que ta mis là moi jai width =1275 et heigth=240

xranto merciii mai ca reste tjr la mm color

quand la souris dépasse le bouton ça reste toujours la même couleur snif tu quel qu'un peut m'aider

Le problème avec VB6 c'est que les évènements MouseEnter et MouseLeave n'existent pas. On doit donc se contenter de MouseMove.

J'ai essayé le code de Mike-31 et ca marche bien. Tu ne doit pas oublier que dans son code, le nom du bouton est CommandButton1.

Le problème aussi est que la valeur 10 est trop petit que quand le pointeur passe vite, l'évènement n'est pas déclenchée. Tu peux essayer avec 100, ça fonctionne mieux.

Re,

A la fin de ta ligne il manque la fin l'instruction Then

deux exemples de bouton sur le fichier ci joint

https://www.cjoint.com/?lAteLP7zFm

Il y a beaucoup de différence entre le VBA dans excel et le vrai VB dans VB6

mais bon ! voici un exemple en VB6

https://www.cjoint.com/?lAvJgSwn6I

re mes amis merci bcp ça marche très bien !
merci mike-31
merci xranto

bjr
SVP je fait quoi si j'ai vb 2005?

> marwa580
Tu peux utiliser le code suivant en VB 2005:

Private Sub Button1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter
        Button1.BackColor = Color.Red
End Sub

Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave
        Button1.BackColor = SystemColors.Control
End Sub

Pas mal l'idée je garde de coté pour mon programme merci