thx MVPbtw,I mean listViewItem's toolTip

解决方案 »

  1.   

    对啊,我也想问这个,不过一直没人回贴。listViewItem不能当成一个Control,直接设置也不支持,哪位能解决这个问题啊?分不够的话,我也可以再加的。
      

  2.   

     '----------------------------------------------------------
        '显示中英文名Tooltip 即提示信息窗口
        '----------------------------------------------------------
        Private ToolTip As New ToolTip()
        Private Sub CategoryView_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CategoryView.MouseMove        Dim point As New Point(e.X, e.Y)
            Dim m_point As Point = CategoryView.PointToClient(point)
            'If m_point.Y <= 0 Then
            '    MsgBox("")
            'End If
            Dim node As TreeNode = CategoryView.GetNodeAt(e.X, e.Y)
            If Not IsNothing(node) Then
                If node.Text = "所有行业" Then Exit Sub
                ToolTip.AutomaticDelay = 500
                Try
                    Dim tag As DictionaryEntry = node.Tag
                    Dim name As String = tag.Key
                    Dim Ename As String = tag.Value
                    ToolTip.SetToolTip(CategoryView, "行业ID[" & name & "] ")
                    '| 父行业ID[" & Ename & "]")
                Catch ex As System.Exception
                    Trace.WriteLine("C")
                End Try
            End If    End Sub
      

  3.   

    以上为一个使用Tooltip的例子,给分吧