Aggiungere una colonna a una ColumnView: differenze tra le versioni
Vai alla navigazione
Vai alla ricerca
(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...") |
Nessun oggetto della modifica |
||
| Riga 10: | Riga 10: | ||
.X = 0 | .X = 0 | ||
.Y = 0 | .Y = 0 | ||
.W = | .W = Me.W | ||
.H = 100 | .H = 100 | ||
<FONT Color=gray>' ''Imposta due colonne:''</font> | <FONT Color=gray>' ''Imposta due colonne:''</font> | ||
| Riga 25: | Riga 25: | ||
.add("Seconda riga", Null, Picture["icon:/16/green"]) | .add("Seconda riga", Null, Picture["icon:/16/green"]) | ||
End With | End With | ||
ColumnView1["Prima riga"][0] = " | |||
ColumnView1["Prima riga"][1] = " | <FONT Color=gray>' ''Assegna un testo alla cella della prima colonna della prima riga della "ColumnView":''</font> | ||
ColumnView1["Seconda riga"][0] = " | ColumnView1["Prima riga"][0] = "Cella della 1^ colonna della 1^ riga" | ||
ColumnView1["Seconda riga"][1] = " | <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" | |||
<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" | |||
With Button1 = New Button(Me) As "Button1" | With Button1 = New Button(Me) As "Button1" | ||
| Riga 48: | Riga 53: | ||
<FONT Color=gray>' ''Aggiunge anche un'altra riga alla "ColumnView":''</font> | <FONT Color=gray>' ''Aggiunge anche un'altra riga alla "ColumnView":''</font> | ||
.Add("Terza riga", Null, Picture["icon:/16/blue"]) | .Add("Terza riga", Null, Picture["icon:/16/blue"]) | ||
End With | End With | ||
ColumnView1["Prima riga"][2] = " | |||
ColumnView1["Seconda riga"][2] = " | <FONT Color=gray>' ''Assegna un testo alla cella della prima colonna della terza riga della "ColumnView":''</font> | ||
ColumnView1["Terza riga"][2] = " | ColumnView1["Prima riga"][2] = "Cella della 3^ colonna della 1^ riga" | ||
<FONT Color=gray>' ''Assegna un testo alla cella della seconda colonna della terza riga della "ColumnView":''</font> | |||
ColumnView1["Seconda riga"][2] = "Cella della 3^ colonna della 2^ riga" | |||
<FONT Color=gray>' ''Assegna un testo alla cella della terza colonna della terza riga della "ColumnView":''</font> | |||
ColumnView1["Terza riga"][2] = "Cella della 3^ colonna della 3^ riga" | |||
<FONT Color=gray>' ''Aggiorna anche le due già esistenti colonne alla terza riga introdotta:''</font> | <FONT Color=gray>' ''Aggiorna anche le due già esistenti colonne alla terza riga introdotta:''</font> | ||
ColumnView1["Terza riga"][0] = " | ColumnView1["Terza riga"][0] = "Cella della 1^ colonna della 3^ riga" | ||
ColumnView1["Terza riga"][1] = " | ColumnView1["Terza riga"][1] = "Cella della 2^ colonna della 3^ riga" | ||
End | End | ||
Versione delle 01:00, 19 nov 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 = 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