Show tool tip ballon on each node of a treeview

[luca90]

Possibile?
Tks

[Arnoutdv]

If you store the tooltips for each node in the .Tag property of the nodes then you can use this snippet:

Private Sub TreeView1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  Dim oNode As ComctlLib.Node
  If Button <> 0 Or Shift <> 0 Then Exit Sub
  Set oNode = TreeView1.HitTest(x, y)
  If oNode = Nothing Then Exit Sub
  TreeView1.ToolTipText = oNode.Tag
End Sub

[luca90]

If you store the tooltips for each node in the .Tag property of the nodes then you can use this snippet:

Private Sub TreeView1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  Dim oNode As ComctlLib.Node
  If Button <> 0 Or Shift <> 0 Then Exit Sub
  Set oNode = TreeView1.HitTest(x, y)
  If oNode = Nothing Then Exit Sub
  TreeView1.ToolTipText = oNode.Tag
End Sub

not work... error in
...
If oNode = Nothing Then Exit Sub
TreeView1.ToolTipText = oNode.Tag
...

[Eduardo-]

If oNode Is Nothing Then Exit Sub

[Arnoutdv]

Should be: If oNode Is Nothing Then Exit Sub