相信许多VB人对这个都感兴趣,直接见代码
Private Sub TreeView1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim nNode As Node
Set nNode = TreeView1.HitTest(x, y)
If Not (nNode Is Nothing) Then
TreeView1.ToolTipText = nNode .Text +& "你添加的提示"
End If
End Sub