程序中操作TreeView的Tooltips属性

Question

Private Sub Form_Load()
    For i = 1 To 10
        TreeView1.Nodes.Add , , , "str" + Str(i)
    Next
End SubPrivate Sub TreeView1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    
    If Not (TreeView1.HitTest(x, y) Is Nothing) Then
        TreeView1.ToolTipText = TreeView1.HitTest(x, y).Text
    Else
        TreeView1.ToolTipText = ""
    End If
End Sub

Answer 1

如果节点TEXT超过控件的右边界就显示ToolTipText，否则不显示!如何做？

Answer 2

to vbprog(只学VB)
Private Sub Form_Load()
    For i = 1 To 10
        TreeView1.Nodes.Add , , , "str" + Str(i)
    Next
    For i = 1 To 10
        TreeView1.Nodes.Add , , , "I think it is easy to do. you can check the point left of treeview" + Str(i)
    Next
End SubPrivate Sub TreeView1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    
    If Not (TreeView1.HitTest(x, TreeView1.Width) Is Nothing) Then
        TreeView1.ToolTipText = TreeView1.HitTest(x, TreeView1.Width).Text
    Else
        TreeView1.ToolTipText = ""
    End If
End Sub