Rubrik: Controls · sev-Controls | VB-Versionen: VB6, VBA | 31.10.16 |
Ermitteln der ersten sichtbaren Spalte im sevDataGrid-Control Eine Funktion, mit der sich die erste sichtbare Spalte im sevDataGrid-Control ermitteln lässt. | ||
Autor: Dieter Otter | Bewertung: | Views: 5.399 |
www.tools4vb.de | System: Win7, Win8, Win10, Win11 | kein Beispielprojekt |
Wenn man dem Anwender erlaubt die Spalten-Reihenfolge im sevDataGrid-Control beliebig verändern zu dürfen, weiß man nicht auf Anhieb, welche Spalte sich danach an erster Position ganz links im DataGrid-Control befindet. Eine FirstVisibleCol-Eigenschaft stellt uns das Control hierfür nicht zur Verfügung. Mit nachfolgender Funktion lässt sich das aber ganz leicht nachrüsten:
' Ermittelt die erste sichtbare Spalte im sevDataGrid Control Public Function GridGetFirstVisibleCol(ByRef oGrid As Object) As Long Dim i As Long Dim nCol As Long Dim nPos As Long nPos = 0 With oGrid For i = 1 To .Cols With .Columns(i) If nPos = 0 Or .Position < nPos Then nCol = i nPos = .Position End If End With Next i End With GridGetFirstVisibleCol = nCol End Function
Aufrufbeispiel:
Dim nCol As Long nCol = GridGetFirstVisibleCol(Grid1)
Weitere Infos zum sevDataGrid-Control unter:
sevDataGrid 3.0