OVH Cloud OVH Cloud

formulaire

2 réponses
Avatar
cynthia
Est-il possible dans un formulaire que lorsque l'on passe
sur du texte qu'il se mette en surbrillance comme on le
voit lorsque l'on navigue sur le net? si oui comment s'y
prendre?

merci

2 réponses

Avatar
Raymond [mvp]
Bonjour.

c'est possible et pas toujours très heureux.
regarde les événements :
sur souris déplacée (mouseMove) du champ texte et de la section détail.
selon où tu te trouves tu changes la couleur du fonds ou du texte.
Je préfère nettement le changement de couleur lorsque le champ a le focus ce
qui permet de bien repérer le champ en cours de saisie ( voir la mise en
forme conditionnelle).
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"cynthia" a écrit dans le message de
news: 1e5001c4d2fb$bbcac970$
Est-il possible dans un formulaire que lorsque l'on passe
sur du texte qu'il se mette en surbrillance comme on le
voit lorsque l'on navigue sur le net? si oui comment s'y
prendre?

merci


Avatar
Ma Dalton
Salut, inspire toi de ceci pour définir les les évènements sur contrôles
dans ton formulaire.

' Gestion du retour en non gras
Private Sub Détail_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Dim i As Integer
For i = 0 To 2 'si tu as 3 contrôles à valider (ici à remettre en
caractère non gras)
Forms![Formulaire2]("Étiquette" & i).FontWeight = 400
Next i
End Sub

' Gestion des gras sur mousemouve
Private Sub Étiquette0_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Étiquette0.FontWeight = 700 'mettre en gras
End Sub

Private Sub Étiquette1_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Étiquette1.FontWeight = 700 'mettre en gras
End Sub

Private Sub Étiquette2_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Étiquette2.FontWeight = 700 'mettre en gras
End Sub

' Gestion des actions sur clic
Private Sub Étiquette0_Click()
Call MSG1
End Sub

Private Sub Étiquette1_Click()
Call MSG1
End Sub

Private Sub Étiquette2_Click()
Call MSG1
End Sub

Sub MSG1()
MsgBox "ceci est un clic sur le bouton # ..."
End Sub


"cynthia" a écrit dans le message de
news: 1e5001c4d2fb$bbcac970$
Est-il possible dans un formulaire que lorsque l'on passe
sur du texte qu'il se mette en surbrillance comme on le
voit lorsque l'on navigue sur le net? si oui comment s'y
prendre?

merci