Texte d'un noeud dans un treeviewRésolu

Question

Bonjour,

j'ai un treeview dont les textes des noeuds sont plus longs que la largeur du treeview. quand je passe sur un noeud avec la souris, j'ai l'affichage du texte du noeud dans une zone qui ressemble au tooltiptext mais je n'ai pas la totalit&#233; du texte (si j'utilise une scrollbar horizontale sur mon treeview, je vois bien tout jusqu'&#224; la fin)

j'ai trouv&#233; un paliatif : mettre &#224; jour le tootiptext sur le mousemove du treeview :

Private Sub trv_Arbre_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)


Dim loNoeud As Node


If Button = 0 Then
    Set loNoeud = trv_Arbre.HitTest(x, y)
    If Not loNoeud Is Nothing Then
        trv_Arbre.ToolTipText = loNoeud.Text
    End If
End If


End Sub

Seulement j'ai toujours l'autre label qui m'indique le libell&#233; tronqu&#233;.

Est il possible de d&#233;sactiver l'affichage automatique du libell&#233; quand il est trop long ou y a t il une solution pour qu'il contienne la totalit&#233; du libell&#233; ?

sroz · Accepted Answer

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal NINdex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal NINdex As Long) As Long
Private Const ToolTip = 128

Private Sub Form_Load()
SetWindowLong TreeView1.hwnd, -16, ToolTip Or GetWindowLong(TreeView1.hwnd, -16)
End Sub

Texte d'un noeud dans un treeview

1 réponse

Discussions similaires