Aggiungere una riga a una ColumnView

Per aggiungere una riga a una ColumnView, si deve usare il Metodo "Add()" della Classe ColumnView.

Di seguito un semplice codice che mostra come aggiungere una riga a una ColumnView:

Private ColumnView1 As ColumnView


Public Sub Form_Open()

 Dim Button1 As Button

 With ColumnView1 = New ColumnView(Me) As "ColumnView1"
   .X = 0
   .Y = 0
   .W = Me.W
   .H = 100
' Imposta due colonne:
   .Columns.Count = 2
   .Columns[0].Alignment = Align.Center
   .Columns[0].Title = "Prima Colonna"
   .Columns[0].Width = -1
   .Columns[1].Alignment = Align.Center
   .Columns[1].Title = "Seconda Colonna"
   .Columns[1].Width = -1
' Aggiunge una riga alla "ColumnView":
   .add("Prima riga", Null, Picture["icon:/16/red"])
 End With

' Assegna un testo alla cella della prima colonna della prima riga della "ColumnView":
 ColumnView1["Prima riga"][0] = "Cella della 1^ colonna della 1^ riga"
' Assegna un testo alla cella della seconda colonna della prima riga della "ColumnView":
 ColumnView1["Prima riga"][1] = "Cella della 2^ colonna della 1^ riga"

 With Button1 = New Button(Me) As "Button1"
   .X = 300
   .Y = 300
   .W = 100
   .H = 50
   .Text = "Aggiungi\nColonna"
 End With

End


Public Sub Button1_Click()

' Inserisce la seconda riga alla "ColumnView":
 ColumnView1.add("Seconda riga", Null, Picture["icon:/16/green"])

' Assegna un testo alla cella della prima colonna della seconda riga della "ColumnView":
 ColumnView1["Seconda riga"][0] = "Cella della 1^ colonna della 2^ riga"
' Assegna un testo alla cella della seconda colonna della seconda riga della "ColumnView":
 ColumnView1["Seconda riga"][1] = "Cella della 2^ colonna della 2^ riga"

' ...oppure il testo a una cella può essere anche assegnato così:
' ColumnView1.Item[0] = "Cella della 1^ colonna della 2^ riga"
' ColumnView1.Item[1] = "Cella della 2^ colonna della 2^ riga"

End