ChgTooltip
Private Sub ListBox1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim index As Integer index = ListBox1.TopIndex + ((Y) / WordHeight) ListBox1.ToolTipText = Str(ListBox1.ItemData(index)) End Sub
Private Sub ListBox1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim index As Integer
index = ListBox1.TopIndex + ((Y) / WordHeight)
ListBox1.ToolTipText = Str(ListBox1.ItemData(index))
End Sub
( chgtooltip.html )- by Paolo Puglisi
- Modifica del 17/12/2023