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

Da Gambas-it.org - Wikipedia.
(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...")
 
 
(2 versioni intermedie di uno stesso utente non sono mostrate)
Riga 1: Riga 1:
−
Di seguito mostriamo un semplice codice che mostra come aggiungere una colonna a una ''ColumnView'':
+
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
 
  Private ColumnView1 As ColumnView
 
   
 
   
Riga 10: Riga 12:
 
     .X = 0
 
     .X = 0
 
     .Y = 0
 
     .Y = 0
−
     .W = 350
+
     .W = Me.W
 
     .H = 100
 
     .H = 100
 
  <FONT Color=gray>' ''Imposta due colonne:''</font>
 
  <FONT Color=gray>' ''Imposta due colonne:''</font>
Riga 21: Riga 23:
 
     .Columns[1].Width = -1
 
     .Columns[1].Width = -1
 
  <FONT Color=gray>' ''Aggiunge una riga alla "ColumnView":''</font>
 
  <FONT Color=gray>' ''Aggiunge una riga alla "ColumnView":''</font>
−
     .add("Prima riga", Null, Picture["icon:/16/red"])
+
     .Add("Prima riga", Null, Picture["icon:/16/red"])
 
  <FONT Color=gray>' ''Aggiunge un'altra riga alla "ColumnView":''</font>
 
  <FONT Color=gray>' ''Aggiunge un'altra riga alla "ColumnView":''</font>
−
     .add("Seconda riga", Null, Picture["icon:/16/green"])
+
     .Add("Seconda riga", Null, Picture["icon:/16/green"])
 
   End With
 
   End With
−
   ColumnView1["Prima riga"][0] = "Prima cella"
+
−
   ColumnView1["Prima riga"][1] = "Seconda cella"
+
<FONT Color=gray>' ''Assegna un testo alla cella della prima colonna della prima riga della "ColumnView":''</font>
−
   ColumnView1["Seconda riga"][0] = "Prima cella"
+
   ColumnView1["Prima riga"][0] = "Cella della 1^ colonna della 1^ riga"
−
   ColumnView1["Seconda riga"][1] = "Seconda cella"
+
<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 45: Riga 52:
 
  <FONT Color=gray>' '''''Inserisce la terza colonna della "ColumnView":'''''</font>
 
  <FONT Color=gray>' '''''Inserisce la terza colonna della "ColumnView":'''''</font>
 
   With ColumnView1
 
   With ColumnView1
−
     .AddColumn("Terza Colonna", 0, Align.Center)
+
     <FONT Color=red>'''.AddColumn'''</font>("Terza Colonna", 0, Align.Center)
 
  <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] = "Terza cella"
+
−
   ColumnView1["Seconda riga"][2] = "Terza cella"
+
<FONT Color=gray>' ''Assegna un testo alla cella della prima colonna della terza riga della "ColumnView":''</font>
−
   ColumnView1["Terza riga"][2] = "Terza cella"
+
   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] = "Prima cella"
+
   ColumnView1["Terza riga"][0] = "Cella della 1^ colonna della 3^ riga"
−
   ColumnView1["Terza riga"][1] = "Seconda cella"
+
   ColumnView1["Terza riga"][1] = "Cella della 2^ colonna della 3^ riga"
 
   
 
   
 
  End
 
  End

Versione attuale delle 00:44, 19 nov 2024

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
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Aggiungere_una_colonna_a_una_ColumnView&oldid=40248"