Differenze tra le versioni di "Aggiungere righe in una GridView da codice mediante un tasto"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "Per ''aggiungere'' da codice righe di una ''GridView'', si utilizza il metodo ''GridView.Rows.Insert()''. Di seguito mostriamo un esempio, in cui viene aggiunta una riga ad...") |
|||
Riga 20: | Riga 20: | ||
End With | End With | ||
+ | '''End''' | ||
+ | |||
+ | |||
+ | E' comunque possibile anche usare la Proprietà ".Count" aggiungendo ad essa il numero di righe desiderato: | ||
+ | '''Public''' Sub Form_Open() | ||
+ | |||
+ | Dim b As Byte | ||
+ | |||
+ | With GridView1 | ||
+ | .Rows.Count = 4 | ||
+ | .Columns.Count = 3 | ||
+ | End With | ||
+ | |||
+ | For b = 0 To GridView1.Rows.Max | ||
+ | GridView1[b, 0].Text = CStr(b) | ||
+ | Next | ||
+ | |||
+ | '''End''' | ||
+ | |||
+ | |||
+ | '''Public''' Sub Button1_Click() | ||
+ | |||
+ | GridView1.Rows<FONT color=#B22222>.Count</font> = GridView1.Rows.Count + 1 | ||
+ | |||
+ | GridView1[GridView1.Rows.Max, 0].Text = CStr(GridView1.Rows.Max) | ||
+ | |||
'''End''' | '''End''' |
Versione attuale delle 07:00, 25 gen 2021
Per aggiungere da codice righe di una GridView, si utilizza il metodo GridView.Rows.Insert().
Di seguito mostriamo un esempio, in cui viene aggiunta una riga ad una GridView, ogni qual volta si preme un Button posto sul Form:
Public Sub Form_Open() GridView1.Columns.Count = 1 End Public Sub Button1_Click() GridView1.Rows.Insert(GridView1.Rows.Count) With GridView1[GridView1.Rows.Max, 0] ' Coloriamo di giallo lo sfondo della nuova riga: .Background = Color.Yellow ' Nella nuova nuova riga inseriamo l'attuale numero crescente: .RichText = GridView1.Rows.Count End With End
E' comunque possibile anche usare la Proprietà ".Count" aggiungendo ad essa il numero di righe desiderato:
Public Sub Form_Open() Dim b As Byte With GridView1 .Rows.Count = 4 .Columns.Count = 3 End With For b = 0 To GridView1.Rows.Max GridView1[b, 0].Text = CStr(b) Next End Public Sub Button1_Click() GridView1.Rows.Count = GridView1.Rows.Count + 1 GridView1[GridView1.Rows.Max, 0].Text = CStr(GridView1.Rows.Max) End