vb@rchiv · Tipps & Tricks · FlexGrid und das Row-Problem

Rubrik: Controls · MSFlexGrid/DataGrid | VB-Versionen: VB4, VB5, VB6

18.08.02

FlexGrid und das Row-Problem Ein kleiner Trick und die gewünschte Zeile wird im FlexGrid-Control im SICHTBAREN Bereich angezeigt.
Autor: Dieter Otter	Bewertung:	Views: 23.005
www.tools4vb.de	System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Kennen Sie das Problem?

Sie verwenden für die Darstellung von Daten das Microsoft FlexGrid Control. Meist enthält das Control dann auch mehr Zeilen als im sichtbaren Client-Bereich angezeigt werden können. Die Row-Eigenschaft lässt sich dann wunderbar dazu verwenden, den Fokus auf eine bestimmte Zeile zu setzen. Nehmen wir an das FlexGrid enthält insgesamt 200 Zeilen. Nun soll per Code die 100. Zeile den Fokus bekommen.

Nichts einfacher als das, sollte man meinen:

MSFlexGrid1.Row = 100

Und tatsächlich: die 100. Zeile bekommt den Fokus. Doch oh Schreck - die Zeile ist weg? Nein, nicht weg, sondern nur außerhalb des sichtbaren Clientbereichs. Obwohl die Zeile den Fokus hat. Wohlgemerkt!

Mit einem kleinen Trick lässt sich dieser m.E. FlexGrid-Bug aber umgehen. Drückt man jetzt z.B. die Cursortaste nach unten, und dann wieder nach oben, so wird die Darstellung des FlexGrid aktualisiert. Die 100. Zeile wird somit sichtbar.

Und genau das tun wir jetzt eben per Code

Private Sub FlexGrid_SetRow(ByVal lRow As Long)
  With MSFlexGrid1
    If lRow >= 0 And lRow < .Rows - 1 Then
      .Row = lRow
      .SetFocus
      SendKeys "{UP}{DOWN}", True
    End If
  End With
End Sub

Anstelle von MSFlexGrid1.Row = 100 müssen Sie jetzt allerdings folgende Anweisung einsetzen:

FlexGrid_SetRow 100

Aber ich denke, das lässt sich verschmerzen