怎样在TreeView的Node上添加ToolTips

Question

他你要在tooltips上要显示的内容存入节点的tag里
在node的Click事件中给tooltips赋值
TreeView.ToolTipText = TreeView.SelectedItem.Tag

Answer 1

Private Sub TreeView1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim nx As Node
    
    Set nx = TreeView1.HitTest(x, y)
    If Not (nx Is Nothing) Then
        TreeView1.ToolTipText = nx.Text + "my"
    End If
End Sub

Answer 2

今天有空了，给你一段代码吧，具体的你回去优化一下。Private Sub Form_Load()
Dim nod As Node
For i = 1 To 6
  Set nod = TreeView1.Nodes.Add(, , "my" & CStr(i), i)
Next
For i = 7 To 10
  Set nod = TreeView1.Nodes.Add(1, tvwChild, "my" & CStr(i), i)
Next
End SubPrivate Sub TreeView1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Set TreeView1.DropHighlight = TreeView1.HitTest(x, y)
If Not (TreeView1.DropHighlight Is Nothing) Then
    TreeView1.ToolTipText = TreeView1.DropHighlight
Else
   Set TreeView1.DropHighlight = Nothing
   TreeView1.ToolTipText = ""
End If
End Sub