Access2010 inversion couleurs souris deplacée
chise
-
chise -
chise -
Bonjour,
Je voudrais sur un formulaire que lorsque l'on déplace la souris il soit possible d'inverser ou de modifier les couleurs de manière à faire savoir qu'une action est possible en cliquant sur la zone en question.
Je suis complètement novice en utilisation de VBA j'ai tenté le code ci dessous, mais je rencontre deux problèmes :
il s'agit d'un formulaire avec plusieurs enregistrements et lieu de modifier uniquement la couleur de l'enregistrement ou je passe la souris il modifie celle de tous les enregistrements pour la zone concernée
Mon deuxième problème, c'est que une fois que j'ai quitté la zone, la couleur ne se remet pas telle qu'elle était au départ mais reste modifée :
je vous mets ce que j'ai essayé, si quelqu'un veut bien me donner des pistes de correction merci d'avance
Private Sub nomcandidat_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim curAmntDue As Currency, lngBlack As Long
Dim lngRed As Long, lngYellow As Long, lngWhite As Long
lngRed = RGB(255, 0, 0)
lngBlack = RGB(0, 0, 0)
lngYellow = RGB(255, 255, 0)
lngWhite = RGB(255, 255, 255)
Me!nomcandidat.BorderColor = lngRed
Me!nomcandidat.ForeColor = lngRed
Me!nomcandidat.BackColor = lngYellow
End Sub
Merci d'avance et bonne journée !
Je voudrais sur un formulaire que lorsque l'on déplace la souris il soit possible d'inverser ou de modifier les couleurs de manière à faire savoir qu'une action est possible en cliquant sur la zone en question.
Je suis complètement novice en utilisation de VBA j'ai tenté le code ci dessous, mais je rencontre deux problèmes :
il s'agit d'un formulaire avec plusieurs enregistrements et lieu de modifier uniquement la couleur de l'enregistrement ou je passe la souris il modifie celle de tous les enregistrements pour la zone concernée
Mon deuxième problème, c'est que une fois que j'ai quitté la zone, la couleur ne se remet pas telle qu'elle était au départ mais reste modifée :
je vous mets ce que j'ai essayé, si quelqu'un veut bien me donner des pistes de correction merci d'avance
Private Sub nomcandidat_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim curAmntDue As Currency, lngBlack As Long
Dim lngRed As Long, lngYellow As Long, lngWhite As Long
lngRed = RGB(255, 0, 0)
lngBlack = RGB(0, 0, 0)
lngYellow = RGB(255, 255, 0)
lngWhite = RGB(255, 255, 255)
Me!nomcandidat.BorderColor = lngRed
Me!nomcandidat.ForeColor = lngRed
Me!nomcandidat.BackColor = lngYellow
End Sub
Merci d'avance et bonne journée !
A voir également:
- Access2010 inversion couleurs souris deplacée
- Comment activer le pavé tactile sans souris - Guide
- Souris ordinateur - Guide
- Remettre les couleurs d'origine android ✓ - Forum Windows 10
- Inversion majuscule minuscule - Forum Windows
- Souris hid ✓ - Forum souris / Touchpad