vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#

http://www.vbarchiv.net
Rubrik: Controls · sev-Controls   |   VB-Versionen: VB6, VBA31.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 OtterBewertung:  Views:  1.136 
www.tools4vb.deSystem:  Vista, Win7, Win8, Win10kein Beispielprojekt 

Summer-Special bei Tools & Components!
Gute Laune Sommer bei Tools & Components
Top Summer-Special - Sparen Sie teilweise bis zu 120,- EUR
Alle sev-Entwicklerkomponenten und Komplettpakete jetzt bis zu 25% reduziert!
zum Beispiel:
  • Developer CD nur 479,20 EUR statt 599,- EUR
  • sevDTA 3.0 nur 224,30 EUR statt 299,- EUR
  •  
  • vb@rchiv   Vol.6 nur 20,00 EUR statt 24,95 EUR
  • sevCoolbar 3.0 nur 55,20 EUR statt 69,- EUR
  • - Werbung -Und viele weitere Angebote           Aktionspreise nur für kurze Zeit gültig

    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



    Anzeige

    Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6

    Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
    - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
    - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
    Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
     
     
    Copyright ©2000-2017 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.