[AC-2007] Evènement souris déplacée [Résolu]

[dragoes64]

Bonjour à tous,

J'ai un formulaire continu qui regroupe tous les enregistrements d'une table. Dans ce formulaire j'ai réduit certaines zones de texte afin de gagner de la place donc le texte contenu dans ces cases n'est pas forcément entièrement visible.

Ma question est de savoir s'il est possible de configurée l'évènement "Sur souris déplacée" pour que quand je survole la case, sa m'affiche la totalité du texte et inversement losqu'on est plus sir la case ?

Merci de votre aide

[Dolphy35]

Salut,

Regarde du côté de la propriété ControlTipText du contrôle.

Code :

Me.Text.ControlTipText="Message"

Ensuite tu charge sa valeur.

Dolphy

[marot_r]

Je n'ai pas de solution mais la discussion m'intéresse donc je m'incruste :-).

A+

[dragoes64]

Merci Dolphy35 ta solution semble être la bonne . Néanmoins il me reste un petit souci à résoudre. Ayant un formulaire continu, le code ne fonctionne qu'avec le premier enregistrement de la liste. Pour les autres, je retrouve le même résultat.
J'ai essayé avec ceci :

Code :

1
2
3
4
5
Private Sub COMMENTS_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
id_rec = Me![ID]
    COM = DLookup("COMMENTS", "SSS", "[ID]= " & id_rec)
Me.COMMENTS.ControlTipText = COM
End Sub

mais sa ne change rien.
Comment faire pour avoir le même résultat enregistrement par enregistrement?

Merci

[Dolphy35]

re,

Cela est compliqué sur un formulaire continu.
Je viens de tester si la ligne est sélectionnée, en gros si tu sélectionne l'enregistrement et tu survol, cela fonctionne.

sinon tu peux consulter ce post http://www.developpez.net/forums/d94...eplace-souris/

Dolphy

[dragoes64]

Envoyé par Dolphy35

Je viens de tester si la ligne est sélectionnée, en gros si tu sélectionne l'enregistrement et tu survol, cela fonctionne.

Peux tu m'en dire un peu plus sur cette solution ?

Envoyé par Dolphy35

sinon tu peux consulter ce post http://www.developpez.net/forums/d94...eplace-souris/

Cette solution me paraît bien complexe a mettre en place, si tu as trouvé plus simple je suis preneur.

[Dolphy35]

Salut,

Voici le code que j'ai mis sur l'action MouseMove de mon contrôle Comments

Code :

1
2
3
4
5
Private Sub Comments_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Not (IsNull(Me.Comments)) Then
        Me.Comments.ControlTipText = Me.Comments
    End If
End Sub

Lorsque tu pointe dans le contrôle Comments l'infobulle est bonne car le sélecteur est sur l'enregistrement en question. Par contre si pointe la souris sans sélectionner, l'info correspond à l'enregistrement sélectionné.

Sinon avec un bouton :

Code :

1
2
3
4
5
Private Sub btnTest_Click()
    If Not (IsNull(Me.Comments)) Then
        MsgBox Me.Comments
    End If
End Sub

et là ça fonctionne un peu comme le principe de ce tuto http://dolphy35.developpez.com/artic.../formcontinus/

Dolphy

[dragoes64]

Envoyé par Dolphy35

Salut,

Voici le code que j'ai mis sur l'action MouseMove de mon contrôle Comments

Code :

Merci Dolphy35 sa marche!!!! En fait la seule ligne:

Code :

Me.Comments.ControlTipText = Me.Comments

suffit. Dans le formulaire il faut sélectionner l'enregistrement que l'on souhaite pour que tout fonctionne. Si on ne le fait pas, par défaut sa met la valeur du code sélectionné auparavant.

Merci encore

[Dolphy35]

Salut,

Je te conseil tout de même de garder le code en entier, car sil dernière ligne est la ligne de saisie Nouvel enregistrement, cela évite des erreurs.
Tout dépend de la conception.

Dolphy