• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Show tooltip of each listbox item

Show tooltip of each listbox item

Show tooltip of each listbox item

Rate Show tooltip of each listbox item

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Dim index As Integer
    On Error GoTo endList
    WordHeight = 195
    index = ListBox1.TopIndex + ((y) / WordHeight)
    ListBox1.ListIndex = index
    ListBox1.ToolTipText = ListBox1.Text
    Exit Sub

endList:
    ListBox1.ListIndex = ListBox1.ListCount - 1
    ListBox1.ToolTipText = ListBox1.Text
    
End Sub