ListView mit laufender ToolTip-Anzeige Anzeige eines individuellen ToolTips, wenn sich der Mauszeiger über ein ListView-Item befindet.
Autor:   Dieter Otter	Bewertung:	Views:  12.014
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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.