Aggiungere una colonna a una ColumnView
Da Gambas-it.org - Wikipedia.
Versione del 20 feb 2024 alle 08:56 di Vuott (Discussione | contributi) (Creata pagina con "Di seguito mostriamo un semplice codice che mostra come aggiungere una colonna a una ''ColumnView'': Private ColumnView1 As ColumnView Public Sub Form_Open() Dim But...")
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