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