我想给listbar生成的listitem加上注释功能，可是它没有tooltiptext属性，怎么办

Question

我想给listbar生成的listitem加上注释功能，可是它没有tooltiptext属性，怎么办

Answer 1

设置控件ListView的ToolTips属性！

Answer 2

Option ExplicitPrivate Sub Form_Load()    ListView1.ListItems.Add , , "1Wewjriowersethweorhweoiruewoiruweoiruwenrfsfdhoiweruweoir"
    ListView1.ListItems.Add , , "2Wewjriowersethweorhweoiruewoiruweoiruwenrfsfdhoiweruweoir"
    ListView1.ListItems.Add , , "3Wewjriowersethweorhweoiruewoiruweoiruwenrfsfdhoiweruweoir"
    ListView1.ListItems.Add , , "4Wewjriowersethweorhweoiruewoiruweoiruwenrfsfdhoiweruweoir"
    ListView1.ListItems.Add , , "5Wewjriowersethweorhweoiruewoiruweoiruwenrfsfdhoiweruweoir"
    ListView1.ListItems.Add , , "6Wewjriowersethweorhweoiruewoiruweoiruwenrfsfdhoiweruweoir"
    ListView1.ListItems.Add , , "7Wewjriowersethweorhweoiruewoiruweoiruwenrfsfdhoiweruweoir"End SubPrivate Sub Form_Resize()    If Me.WindowState <> vbMinimized Then ListView1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeightEnd SubPrivate Sub ListView1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    
    Dim tmplst As ListItem
    
    Set tmplst = ListView1.HitTest(x, y)
    
    If tmplst Is Nothing Then
        ListView1.ToolTipText = ""
    Else
        ListView1.ToolTipText = tmplst.Text
    End If
    
End Sub

Answer 3

老大 我用的是listbar，不是listview，用您这种方法能行吗