Discussion :

[ThieBEN]

Bonjour à tous,
Je souhaiterais changer la couleur d'un contrôle au survol de la souris, mais je voudrais qu'il ne s’applique qu’au contrôle sélectionné dans un formulaire continu.
J'ai mis ce code la couleur change mais sur tous les contrôles :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Id_Test_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Id_Test.BackColor = 65535
End Sub
 
Private Sub Détail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Id_Test.BackColor = 16777215
End Sub

Y a t-il une ligne à ajouter?
Merci de votre aide

[raoullt]

tu pourrais redéclencher un traitement dans l’évènement "on paint" ... (dans les propriétés de la section détail) moi je l'utilise pour modifier la couleur couleur d'une puce (vert/orange/gris) en fonction des caractéristiques de l'enregistrement dans un formulaire continu.

@+

Raoul
L'action est ma vie... l'adrénaline ma drogue !

[vodiem]

Salut ThieBEN et bienvenu raoullt,

tu ne peux pas utiliser ce genre de code en formulaire continu.
une solution consiste à passer la valeur du survol dans un champ du recordset et utiliser la mise en forme conditionnelle.

[ThieBEN]

Salut ThieBEN et bienvenu raoullt,

tu ne peux pas utiliser ce genre de code en formulaire continu.
une solution consiste à passer la valeur du survol dans un champ du recordset et utiliser la mise en forme conditionnelle.

Ok Vodiem, mais je ne comprends pas comment utiliser la mise en forme conditionnelle. Sous quelle condition le champ va changer de couleur et comment? Je bloque
Merci de votre aide

[ThieBEN]

Bonjour à tous, bon je ne trouve rien à mon problème, j'ai tenté Ici mais cela ne fonctionne pas.
Merci des conseils

[vodiem]

Salut ThieBEN,

il y a un tuto sur la mfc ici

par exemple au survol tu mets la valeur du champ [couleur] à 1 (penser éventuellement à valider la saisie avec un refresh) et dans la mfc du control à colorier tu mets en condition "Expression" avec une expression du genre : [couleur]=1.

[ThieBEN]

Bonjour et merci à vodiem, j'ai tenté ci-dessus, mais cela ne marche pas. Peut-on passer directement par du code vba? Faut-il créer un module, une macro pour lancer l'action?
Merci des conseils ou solutions

[vodiem]

Effectivement en survol ce ne sera pas suffisant.
> tu peux t'inspirer du code de lebans ici pour reconnaitre l'enregistrement survolé et faire les traitements appropriés.
> sinon plus "simplement" en provoquant un clic sur le survol, cela rend active l'enregistrement et la coloration conditionnel associée. mais à chaque déplacement de souris cela provoque un scintillement il faut y adjoindre une comparaison de changement d'enregistrement...
tu trouveras cet exemple dans le fichier joint.

[ThieBEN]

Merci Vodiem pour ton aide et conseils, avec ton exemple cela pourrais convenir sauf que le code déclenche l'ouverture d'un formulaire qui doit seulement s'ouvrir quand l'on clic sur le champ. En fait ce que je voulais, c'est que lorsque ma souris survol le champ, c'est qu'il change de couleur et qu'ensuite on puisse cliqué pour lancer l'ouverture du formulaire correspondant.
Merci

[vodiem]

j'ai bien du code fonctionnel un peu dans la logique de lebans (qui est obsolète pour les ver >2003 (voir moins, si je ne me trompe)) via scrollbar mais je trouve que c'est déjà beaucoup de code pour pas grand chose.
je t'ai donc remis la db avec une modif mineur pour permettre ce comportement.

[ThieBEN]

Encore merci Vodiem, j'ai mis le bout de code que tu as ajouté, le problème c'est que lorsque que l'on se trouve sur le champ la msgbox s'ouvre aussitôt et on ne peut pas revenir en arrière, ni circuler librement avec la souris pour parcourir les champs. Cela semble compliqué à réaliser pour un fonctionnement correct.
Le but est de pouvoir survoler les champs (comme avec ton exemple) avec la souris affiche la couleur au survol et lorsque l'utilisateur s'arrête sur le champs qu'il a choisi, clic sur celui-ci et ouvre le Frm. Mes connaissance en VBA étant très limites je vais peut-être abandonner cette idée de survol avec changement de couleur.
Merci de tes précieux conseils

[vodiem]

lorsque que l'on se trouve sur le champ la msgbox s'ouvre aussitôt

dans mon dernier exemple cela fonctionne correctement.
tu n'as sans doute pas fait les modifications nécessaire.
le principe de la modification mineur étant de mettre un flag "isMoveClic" lorsqu'il s'agit d'un clic provenant du survol:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
If RecordSection <> CurRecordSection Then
    isMoveClic = True
    mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
    mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
    CurRecordSection = RecordSection
End If

dans la gestion du clic il suffit de vérifier ce flag:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If isMoveClic Then
    isMoveClic = False 'fin du traitement clic via survol
Else
    'traitement du clic...
End If

je ne doute pas que même avec des connaissances limitées tu devrais t'en sortir.

[loufab]

Bonjour,

Petite parenthèse : A parti d'ACCESS 2010 cette gestion est native. (non c'est pas de la pub )

Cordialement,

[vodiem]

Salut loufab,

A parti d'ACCESS 2010 cette gestion est native.

[ThieBEN]

dans mon dernier exemple cela fonctionne correctement.
tu n'as sans doute pas fait les modifications nécessaire.
le principe de la modification mineur étant de mettre un flag "isMoveClic" lorsqu'il s'agit d'un clic provenant du survol:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
If RecordSection <> CurRecordSection Then
    isMoveClic = True
    mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
    mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
    CurRecordSection = RecordSection
End If

dans la gestion du clic il suffit de vérifier ce flag:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If isMoveClic Then
    isMoveClic = False 'fin du traitement clic via survol
Else
    'traitement du clic...
End If

je ne doute pas que même avec des connaissances limitées tu devrais t'en sortir.

J'ai bien fait les modifications mais lorsque la souris survol un champ l'action clic se déclenche et ouvre le formulaire. Je vais essayer de transmettre un exemple de ce que je souhaite faire. Peut-être que je me trompe sur la position du code.Merci de votre aide et conseils

[vodiem]

J'ai bien fait les modifications mais lorsque la souris survol un champ l'action clic se déclenche et ouvre le formulaire

cela peut se produire aussi si la variable "isMoveClic" n'est pas déclaré en global.