Afficher un message lors du passage de la souris sur un element de combobox

Version imprimable

05/05/2017, 13h25
rampage92

Afficher un message lors du passage de la souris sur un element de combobox

Bonjour,

Je voudrais savoir si il était possible d'afficher un message quand la souris passe sur un élément de Userform.

Mon but : Quand l'utilisateur saisi un des champs contenus dans le Userform il est une petite explication correspondante au champ en question.

Merci à vous
05/05/2017, 13h28
patricktoulon

re

oui et non
non parce que l'élément n'a pas cela en natif
oui en jouant avec la position y avec un calcul du font zize mais c'est approximatif sans apis
05/05/2017, 14h03
joe.levrai

1 pièce(s) jointe(s)

Bonjour,

le titre parle de combobox, l'explication parle de Userform, qu'en est-il ?

tu as la possibilité de créer des infobulles via la propriété ControlTipText, l'infobulle s'affiche quand le curseur de la souris est sur la zone du contrôle

Ici le curseur de la souris est sur Label1
Pièce jointe 271915

MErci joe cependant je connais les coordonnées de ma souris une fois ma combobox ouverte ... Le manipulation est elle toujours possible ? Si oui comment ?

J'a i trouvé ca mais c'est pas clair du tout

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
 
Private Const LB_ITEMFROMPOINT = &H1A9
 
Private Sub Form_Load()
Dim indice As Integer
 
    For indice = 1 To 10
        List1.AddItem "Item n° " & indice
    Next
 
End Sub
 
Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim p As POINTAPI
Dim indice As Long
 
    ' Récupère la position de la souris
    Call GetCursorPos(p)
 
    Call ScreenToClient(List1.hWnd, p)
 
    ' Récupère l'indice de l'élément survolé (grace à l'envoi de LB_ITEMFROMPOINT via SendMessage)
    indice = SendMessage(List1.hWnd, LB_ITEMFROMPOINT, 0&, ByVal ((p.X And &HFF) Or (&H10000 * (p.Y And &HFF))))
    If indice >= 0 Then
        indice = indice And &HFF
        List1.ToolTipText = "Ceci est l'item n°" & indice
    End If
End Sub

05/05/2017, 14h34
joe.levrai

Ce qui n'est pas clair, c'est la finalité
Là tu pars dans des usines à gaz à vouloir manipuler des API alors que tu ne connaissais même pas les TipText.

C'est gravir l'Everset avec des sandales

Au pire, passe ta combobox en listbox .... ajoute une colonne qui hébergera l'explication de chaque élément.
Tu peux même à la limite masquer cette colonne de contexte ... et piocher l'information pour l'afficher dans un TextBox
05/05/2017, 14h37
rampage92

JE pense que je vais afficher l'info dans un label merci beaucoup
05/05/2017, 17h15
unparia

Bonjour rampage92

Ton post N° 4 m'inquiète assez car il met en exergue que tu "fouilles" sur la toile pour trouver des solutions sans même savoir si elles s'appliquent ou non à VBA/Excel !
Le code que tu as ainsi "trouvé" ne s'applique en aucun cas à une listbox (et encore moins à une combobox) de msforms.
Il concerne uniquement les listboxes et comboboxes de VB6, totalement différentes.

Pour ton information (et entre autres) :
- il est possible (si si ..) de déterminer le handle d'une msforms.listbox, mais il n'est pas possible d'agir sur la fenêtre de ce contrôle à l'aide du code que tu as "trouvé"
- il n'est pas possible de déterminer avec assurance le handle d'une msform.Combobox