使用TOOLTIP,下面的例子可以告诉你怎么样来设置Private Sub trvOrg_MouseMove(ByVal sender As Object, ByVal _ e As System.Windows.Forms.MouseEventArgs) Handles _ trvOrg.MouseMove ' Find the node under the mouse. Static old_node As TreeNode Dim node_here As TreeNode = trvOrg.GetNodeAt(e.X, e.Y) If node_here Is old_node Then Exit Sub old_node = node_here ' See if we have a node. If old_node Is Nothing Then ttOrg.SetToolTip(trvOrg, "") Else ' Get this node's object data. If TypeOf node_here.Tag Is FactoryData Then Dim factory_data As FactoryData = _ DirectCast(node_here.Tag, FactoryData) ttOrg.SetToolTip(trvOrg, factory_data.Name) ......设置TOOLTIP ElseIf TypeOf node_here.Tag Is GroupData Then Dim group_data As GroupData = _ DirectCast(node_here.Tag, GroupData) ttOrg.SetToolTip(trvOrg, group_data.Name) ElseIf TypeOf node_here.Tag Is PersonData Then Dim person_data As PersonData = _ DirectCast(node_here.Tag, PersonData) ttOrg.SetToolTip(trvOrg, person_data.Name) End If End If End Sub
e As System.Windows.Forms.MouseEventArgs) Handles _
trvOrg.MouseMove
' Find the node under the mouse.
Static old_node As TreeNode
Dim node_here As TreeNode = trvOrg.GetNodeAt(e.X, e.Y)
If node_here Is old_node Then Exit Sub
old_node = node_here ' See if we have a node.
If old_node Is Nothing Then
ttOrg.SetToolTip(trvOrg, "")
Else
' Get this node's object data.
If TypeOf node_here.Tag Is FactoryData Then
Dim factory_data As FactoryData = _
DirectCast(node_here.Tag, FactoryData)
ttOrg.SetToolTip(trvOrg, factory_data.Name) ......设置TOOLTIP
ElseIf TypeOf node_here.Tag Is GroupData Then
Dim group_data As GroupData = _
DirectCast(node_here.Tag, GroupData)
ttOrg.SetToolTip(trvOrg, group_data.Name)
ElseIf TypeOf node_here.Tag Is PersonData Then
Dim person_data As PersonData = _
DirectCast(node_here.Tag, PersonData)
ttOrg.SetToolTip(trvOrg, person_data.Name)
End If
End If
End Sub