Visualizza wikitesto di 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
 <FONT Color=gray>' ''Imposta due colonne:''</font>
    .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
 <FONT Color=gray>' ''Aggiunge una riga alla "ColumnView":''</font>
    .Add("Prima riga", Null, Picture["icon:/16/red"])
  End With
 
 <FONT Color=gray>' ''Assegna un testo alla cella della prima colonna della prima riga della "ColumnView":''</font>
  ColumnView1["Prima riga"][0] = "Cella della 1^ colonna della 1^ riga"
 <FONT Color=gray>' ''Assegna un testo alla cella della seconda colonna della prima riga della "ColumnView":''</font>
  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()
 
 <FONT Color=gray>' '''''Inserisce la seconda riga alla "ColumnView":'''''</font>
  ColumnView1.Add("Seconda riga", Null, Picture["icon:/16/green"])
 
 <FONT Color=gray>' ''Assegna un testo alla cella della prima colonna della seconda riga della "ColumnView":''</font>
  ColumnView1["Seconda riga"][0] = "Cella della 1^ colonna della 2^ riga"
 <FONT Color=gray>' ''Assegna un testo alla cella della seconda colonna della seconda riga della "ColumnView":''</font>
  ColumnView1["Seconda riga"][1] = "Cella della 2^ colonna della 2^ riga"
 
 <FONT Color=gray>' ''...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"'''</font>
 
 End