Treeview : Changer le ToolTipText en fonction de l'enfant pointé

Question

Bonjour !

Voilà j'utilise un treeview avec plusieurs parents et enfants par parents (pas de sous enfant) et j'aimeré que quand l'utilisateur passe sa souri devant un enfant un ToolTip s'affiche.

Voici un code qui fonctionne pas vraiment :

Private Sub Liste_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim oNode As node
      Set oNode = Liste.HitTest(X, Y)
      If Not oNode Is Nothing Then
         If oNode.Children = 0 Then
                Liste.ToolTipText = "teste" & X
         End If
   End If
End Sub

Le toolTip ne séfface pas si la souris et sur autre chose que un enfant et il affiche le tooltip méme si c pas un enfant !

Comment faire ?

Merci

Clad

mortalino · Answer

Salut,

et sur l'évènement MouseMove de ta Form,

en placant Liste.ToolTipText = ""

Ca ne fonctionne pas ?

@++

  --Mortalino-- 
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement !

Clad49 · Answer

Non ca fonctionne pas ! J'ai déjà testé ;)

Clad

mortalino · Answer

Alors essaie ce genre de bidouille pour ne pas afficher le TipText dans les autres contrôles : 

tout d'abord, aux contrôles qui ne doivent rien afficher, met leurs la Propriété Tag (dans fenetre propriétés) => PasdAffichage

Dans un Timer :

Dim ctl As Control
For each ctl in Form.Controls
  If ctl.Tag = "PasdAffichage" Then
    ctl.ToolTipText = ""
  End If
Next ctl

peut-être que vb appréciera plus cette technique !

@++

  --Mortalino-- 
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement !

Treeview : Changer le ToolTipText en fonction de l'enfant pointé

3 réponses

Votre réponse

Discussions similaires