Rubrik: Controls · ListView | VB-Versionen: VB6 | 08.06.09 |
ListView mit laufender ToolTip-Anzeige Anzeige eines individuellen ToolTips, wenn sich der Mauszeiger über ein ListView-Item befindet. | ||
Autor: Dieter Otter | Bewertung: | Views: 12.016 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Mit diesem Tipp möchten wir Ihnen eine einfache Möglichkeit zeigen, wie man im ListView-Control individuelle ToolTips anzeigen kann, wenn sich der Mauszeiger über ein ListView-Item befindet.
So kann man bspw. die Infos der gesamten ListView-Zeile als ToolTip-Text anzeigen:
' individuellen ToolTip anzeigen Private Sub ListView1_MouseMove(Button As Integer, Shift As Integer, _ x As Single, y As Single) Dim oItem As ListItem Dim sToolTip As String With ListView1 ' ListItem-Objekt unter dem Mauszeiger ermitteln Set oItem = .HitTest(x, y) If Not oItem Is Nothing Then ' 1., 2. und 3. Spalte zusammen als ToolTip anzeigen sToolTip = oItem.Text & ", " & oItem.SubItems(1) & ", " & oItem.SubItems(2) Else ' befindet sich der Mauszeiger nicht über ein ListItem-Objekt ' soll kein ToolTip-Text anzeiget werden sToolTip = "" End If ' ToolTip nur aktualisieren, wenn geändert If .ToolTipText <> sToolTip Then .ToolTipText = sToolTip End If End With End Sub