Individuelle Zellen-Tooltips für das MSFlexGrid-Control Auch wenn das FlexGrid-Control von Microsoft keine Eigenschaft vorsieht, um für die einzelnen Zellen einen ToolTip anzuzeigen, lässt sich diese Funktionalität mit wenig Aufwand selbst implementieren.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  9.266
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10	Beispielprojekt auf CD

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

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Beim Einsatz des MSFlexGrid-Controls vermisst sicherlich der ein oder andere eine Eigenschaft, mit der man den einzelnen Zellen einen individuellen ToolTip zuweisen kann. Eine CellToolTip-Eigenschaft stellt uns das Control leider nicht zur Verfügung. Es gibt hier nur die Standard ToolTipText-Eigenschaft des Controls, die jedoch für das gesamte Control gültig ist.

Nachfolgend zeigen wir, wie man dennoch individuelle ToolTip-Texte für jede einzelne Zelle des MSFlexGrid-Controls, anzeigen kann.

Wir verwenden hierzu einfach das MouseMove-Event des Controls und fragen dort die aktuelle Zelle an. Den gewünschten ToolTip weisen wir dann einfach der allgemeinen ToolTipText-Eigenschaft des Controls zu.

Private Sub MSFlexGrid1_MouseMove(Button As Integer, Shift As Integer, _
  x As Single, y As Single)
 
  With MSFlexGrid1
    ' befindet sich der Mauszeiger über eine Zelle?
    If .MouseCol > 0 And .MouseRow > 0 Then
      ' Beispiel: ToolTip anzeigen
      .ToolTipText = "Zelle: " & CStr(.MouseRow) & "," & CStr(.MouseCol)
    Else
      .ToolTipText = ""
    End If
  End With
End Sub