Differenze tra le versioni di "Aggiungere una colonna a una ColumnView"

Versione delle 07:56, 20 feb 2024

Di seguito mostriamo un semplice codice che mostra come aggiungere una colonna 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 = 350
   .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"])
' Aggiunge un'altra riga alla "ColumnView":
   .add("Seconda riga", Null, Picture["icon:/16/green"])
 End With
 ColumnView1["Prima riga"][0] = "Prima cella"
 ColumnView1["Prima riga"][1] = "Seconda cella"
 ColumnView1["Seconda riga"][0] = "Prima cella"
 ColumnView1["Seconda riga"][1] = "Seconda cella"

 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 terza colonna della "ColumnView":
 With ColumnView1
   .AddColumn("Terza Colonna", 0, Align.Center)
' Aggiunge anche un'altra riga alla "ColumnView":
   .Add("Terza riga", Null, Picture["icon:/16/blue"])
 End With 
 ColumnView1["Prima riga"][2] = "Terza cella"
 ColumnView1["Seconda riga"][2] = "Terza cella"
 ColumnView1["Terza riga"][2] = "Terza cella"
 
' Aggiorna anche le due già esistenti colonne alla terza riga introdotta:
 ColumnView1["Terza riga"][0] = "Prima cella"
 ColumnView1["Terza riga"][1] = "Seconda cella"

End