Spaltenüberschriften und ande Spalteneigenschaften auf einfache Weise setzen

(Stand der EN Seite vom 17.03.2024)

Bei einem Grid-Steuerelement, z.B. einem GridView, einem ColumnView oder einem TableView, gibt es viele Möglichkeiten, die Spaltenüberschriften einzurichten. Ich habe festgestellt, dass dieser Weg sowohl einfach als auch am leichtesten zu ändern ist. Als Beispiel...

Private Sub LayoutMyGridView()

  Dim headers As String[]=["Species","Name","Gender","Size"]
  Dim idx As Integer

  myGridView.Columns.Count=headers.Count
  For idx = 0 to headers.Max
    myGridView.Columns[idx].Title = headers[idx]
  Next

End

Fügen Sie einfach einen Aufruf von LayoutMyGridView in Form_Open() ein.

Um einen Spaltentitel hinzuzufügen, zu löschen oder zu ändern, müssen Sie also nur das String-Array "headers" bearbeiten.

Sie wollen mehr?

Durch Hinzufügen weiterer lokaler Arrays (und ein wenig Überprüfung der Korrektheit) können Sie andere Spaltenattribute des Grids auf dieselbe Weise festlegen!

Private Sub LayoutMyGridView()

  Dim headers As String[]=["Species","Name","Gender","Size"]
  Dim widths As Integer[]=[120,120,30,35]
  Dim idx As Integer

  If widths.Count<>headers.count then Error.Raise("Programmer cannot count!")

  myGridView.Columns.Count = headers.Count
  For idx = 0 to headers.Max
    myGridView.Columns[idx].Title = headers[idx]
    myGridView.Columns[idx].Width = widths[idx]
  Next

End