Hallo zusammen!
Ich habe ein kleines Problem bei ToolTips für die Items einer ListBox. Der folgende Code zeigt, wie man einen Tooltip für jeden Item der Listbox erzeugen und bei MouseHover anzeigen kann. Das kleine Problem ist, dass man immer mit der Maus erst den Bereich der ListBox verlassen muss, um über einen anderen Item zu fahren, den entsprechenden ToolTip anzuzeigen.
Vielleicht kann jemand hier eine Idee entwickeln, wie man den nächsten ToolTip anzeigen kann, wenn man die Maus eben über einen anderen Item schiebt, ohne den Bereich der ListBox zu verlassen... ??
Grüße - Dietrich
Ich habe ein kleines Problem bei ToolTips für die Items einer ListBox. Der folgende Code zeigt, wie man einen Tooltip für jeden Item der Listbox erzeugen und bei MouseHover anzeigen kann. Das kleine Problem ist, dass man immer mit der Maus erst den Bereich der ListBox verlassen muss, um über einen anderen Item zu fahren, den entsprechenden ToolTip anzuzeigen.
Vielleicht kann jemand hier eine Idee entwickeln, wie man den nächsten ToolTip anzeigen kann, wenn man die Maus eben über einen anderen Item schiebt, ohne den Bereich der ListBox zu verlassen... ??
Quellcode
- Dim myPoint As Point, myIndex As Short
- Private Sub myListBox_MouseHover(sender As Object, e As EventArgs) _
- Handles myListBox.MouseHover
- With myListBox
- myPoint = .PointToClient(Cursor.Position)
- myIndex = .IndexFromPoint(myPoint)
- If myIndex < 0 Then Exit Sub
- ToolTip1.SetToolTip(myListBox, .GetItemText(.Items(myIndex)))
- End With
- End Sub
Grüße - Dietrich