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:	Views:  10.962
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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

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.