listview的奇怪的现象?如何解答?

Question

我用listview和ImageList做了一个餐饮收银系统的餐桌状态的界面，
原意想在当鼠标停在某一个图标时，用ToolTipText显示该桌的包厢
费信息，但是确显示不出来，语句如下：
ListView1.SelectedItem.ToolTipText = "包厢费" & bxfsx(tmpSit) & "元"
或
ListView1.ListItems(i).ToolTipText = rs1.Fields("class") & "包厢费" & bxfsx(tmpSit) & "元"
都不行，请高手指点

Answer 1

Private Sub ListView1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    
    Dim item        As ListItem
    
    Set item = ListView1.HitTest(x, y)
    
    If item Is Nothing Then
        ListView1.ToolTipText = vbNullString
        ListView1
    Else
        ListView1.ToolTipText = item.ToolTipText
    End If
    
End Sub