求助:怎样才能当鼠标停在TreeView的菜单上时(包括子菜单),显示该菜单的内容,就像ToolTip提示一样?? 

解决方案 »

  1.   

    TreeView有个属性ShowToolTip你看看是否为True
      

  2.   

    使用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