O caminho mais fácil para definir colunas, títulos, grades, etc
Com base em um controle de grade, digamos, um
gridview, a
ColumnView or a
TableView, há muitas maneiras que você pode configurar os títulos de cabeçalho de coluna. Esta é a maneira que eu encontrei para ser ao mesmo tempo simples e mais passíveis de mudança.
Como um exemplo ...
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
Basta incluir uma chamada para LayoutMyGridView em Form_Open().
Quer mais?
Ao adicionar matrizes locais mais (e um pouco de verificação de sanidade) você pode definir outros atributos da grade de colunas da mesma forma!
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