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

Public Class Form1
 
  ' ToolTip-Objekt
  Dim ToolTip1 As New ToolTip

  Private Sub ListView1_MouseMove(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseMove
 
    Dim sToolTip As String = ""
 
    ' ListItem unter dem Mauszeiger ermitteln
    Dim hInfo As ListViewHitTestInfo = CType(sender, ListView).HitTest(e.Location)
    If Not IsNothing(hInfo.Item) Then
      ' 1., 2. und 3. Spalte als ToolTip anzeigen
      With hInfo.Item
        sToolTip = .Text & ", " & .SubItems(1).Text & ", " & .SubItems(2).Text
      End With
    End If
 
    ' ToolTip aktualisieren
    With ToolTip1
      If .GetToolTip(sender) <> sToolTip Then
        .InitialDelay = 0
        .SetToolTip(sender, sToolTip)
      End If
    End With
  End Sub

End Class

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.