ListView mit laufender ToolTip-Anzeige Anzeige eines individuellen ToolTips, wenn sich der Mauszeiger über ein ListView-Item befindet.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  4.568
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Vista, Win7	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 3 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 5.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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