Couleur bouton VB6
Résolu
the.memin
Messages postés
148
Date d'inscription
Statut
Membre
Dernière intervention
-
marwa580 Messages postés 162 Date d'inscription Statut Membre Dernière intervention -
marwa580 Messages postés 162 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je veux changer la couleur d'un bouton lorsque la souris passe sur le bouton
j'utilise vb6
merci
je veux changer la couleur d'un bouton lorsque la souris passe sur le bouton
j'utilise vb6
merci
A voir également:
- Couleur bouton VB6
- Vb6 - Télécharger - Divers Utilitaires
- Bouton couleur telecommande - Guide
- Excel cellule couleur si condition texte - Guide
- Boite a couleur - Télécharger - Divers Photo & Graphisme
- Bouton reinitialisation pc - Guide
11 réponses
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 :
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
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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.
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
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
mais bon ! voici un exemple en VB6
https://www.cjoint.com/?lAvJgSwn6I
> marwa580
Tu peux utiliser le code suivant en VB 2005:
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
