Inserire un ulteriore testo in una GridView sempre nell'ultima riga
Da Gambas-it.org - Wikipedia.
Versione del 2 lug 2023 alle 14:56 di Vuott (Discussione | contributi)
Il caso è quello in cui, ogni qual volta deve essere inserito del testo in una GridView, esso viene inserito nell'ultima riga spostando verso le righe superiori quello preesistente.
Mostriamo un possibile codice:
Private i As Integer Public Sub Form_Open() With GridView1 .Columns.Count = 3 .Rows.Count = 3 .Rows.Height = 21 .Columns[0].Width = GridView1.W * 0.45 .Columns[1].Width = GridView1.W * 0.45 .Columns[2].Width = GridView1.W * 0.05 .Columns[2].Alignment = Align.Center End With End Public Sub Button1_Click() Inc i If i < 4 Then For c As Short = 0 To GridView1.Rows.Max - 1 GridView1[c, 0].Text = GridView1[c + 1, 0].Text GridView1[c, 1].Text = GridView1[c + 1, 1].Text GridView1[c, 2].Text = GridView1[c + 1, 2].Text Next Endif ' Se tutte e tre le righe iniziali della "GridView" sono state popolate con il testo, viene aggiunta una riga in ultimo: If i > 3 Then GridView1.Rows.Count += 1 GridView1[GridView1.Rows.Max, 0].Text = "Testo 1" GridView1[GridView1.Rows.Max, 1].Text = "Testo 2" GridView1[GridView1.Rows.Max, 2].Text = CStr(i) ' Fa sì che sia sempre visibile l'ultima riga della "GridView": GridView1.ScrollY = i * GridView1.Rows.H End