Aggiungere una colonna a una ColumnView

Da Gambas-it.org - Wikipedia.
Versione del 19 nov 2024 alle 00:44 di Vuott (Discussione | contributi)

(diff) ← Versione meno recente | Versione attuale (diff) | Versione più recente → (diff)

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

Di seguito 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 = 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"])
' Aggiunge un'altra riga alla "ColumnView":
   .Add("Seconda riga", Null, Picture["icon:/16/green"])
 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"
' 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"

 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

' Assegna un testo alla cella della prima colonna della terza riga della "ColumnView":
 ColumnView1["Prima riga"][2] = "Cella della 3^ colonna della 1^ riga"
' Assegna un testo alla cella della seconda colonna della terza riga della "ColumnView":
 ColumnView1["Seconda riga"][2] = "Cella della 3^ colonna della 2^ riga"
' Assegna un testo alla cella della terza colonna della terza riga della "ColumnView":
 ColumnView1["Terza riga"][2] = "Cella della 3^ colonna della 3^ riga"
 
' Aggiorna anche le due già esistenti colonne alla terza riga introdotta:
 ColumnView1["Terza riga"][0] = "Cella della 1^ colonna della 3^ riga"
 ColumnView1["Terza riga"][1] = "Cella della 2^ colonna della 3^ riga"

End