treeview 问题!

Question

能不能设置标签的值,或不要标签.
我说的标签就是当treeview的宽度不够时,鼠标放在某个node上时,显示的东东 .
默认是他的text值.
我就想问问能改不,能屏蔽也行.

Answer 1

Private Sub TreeView1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim nd As Node
    Set nd = TreeView1.HitTest(x, y)
    If nd Is Nothing Then
        TreeView1.ToolTipText = vbNullString
    Else
        TreeView1.ToolTipText = nd.Text
    End If
End Sub