哈哈,问题解决了,不过是要谢谢大家啊.代码如下: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) '如果节点值不为空,则在给他的tooltiptext属性赋值 If Not (nx Is Nothing) Then TreeView1.ToolTipText = nx.Text + "my" End If End Sub
Set nx = TreeView1.HitTest(x, y) '如果节点值不为空,则在给他的tooltiptext属性赋值
If Not (nx Is Nothing) Then
TreeView1.ToolTipText = nx.Text + "my"
End If
End Sub