Differenze tra le versioni di "Colorare il fondo di una riga di una GridView"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "Per impostare il colore di fondo di una riga della ''GridView'', si potrà adottare il seguente codice, che provvedere a colorare il fondo di una cella costituente la riga int...") |
|||
| (3 versioni intermedie di uno stesso utente non sono mostrate) | |||
| Riga 1: | Riga 1: | ||
Per impostare il colore di fondo di una riga della ''GridView'', si potrà adottare il seguente codice, che provvedere a colorare il fondo di una cella costituente la riga interessata: | Per impostare il colore di fondo di una riga della ''GridView'', si potrà adottare il seguente codice, che provvedere a colorare il fondo di una cella costituente la riga interessata: | ||
| − | + | Public Sub Form_Open() | |
Dim b As Byte | Dim b As Byte | ||
| Riga 14: | Riga 14: | ||
Next | Next | ||
| − | + | End | |
| − | + | oppure usando la Proprietà ".Data.Background" nell'Evento "_Data()" della ''GridView'': | |
| − | + | Public Sub Form_Open() | |
With GridView1 | With GridView1 | ||
| Riga 23: | Riga 23: | ||
End With | End With | ||
| − | + | End | |
| − | + | Public Sub GridView1<FONT Color=#B22222>_Data</font>(Row As Integer, Column As Integer) | |
| − | <FONT Color=gray>' ''Vengono colorate di giallo soltanto le righe d'indice pari:''</font> | + | <FONT Color=gray>' ''Vengono colorate di giallo e popolate dal testo soltanto le righe d'indice pari:''</font> |
| − | If Row Mod 2 = 0 Then GridView1.Data.Background = &FFFF00 | + | If Row Mod 2 = 0 Then |
| + | With GridView1.Data | ||
| + | .Background = &FFFF00 | ||
| + | .Text = "Testo qualsiasi" | ||
| + | End With | ||
| + | Endif | ||
| − | + | End | |
Versione attuale delle 12:50, 2 lug 2023
Per impostare il colore di fondo di una riga della GridView, si potrà adottare il seguente codice, che provvedere a colorare il fondo di una cella costituente la riga interessata:
Public Sub Form_Open() Dim b As Byte With GridView1 .Columns.Count = 4 .Rows.Count = 4 End With ' All'inizio la prima riga in alto assume il colore giallo: For b = 0 To GridView1.Columns.Max GridView1[0, b].Background = &FFFF00 Next End
oppure usando la Proprietà ".Data.Background" nell'Evento "_Data()" della GridView:
Public Sub Form_Open()
With GridView1
.Columns.Count = 4
.Rows.Count = 10
End With
End
Public Sub GridView1_Data(Row As Integer, Column As Integer)
' Vengono colorate di giallo e popolate dal testo soltanto le righe d'indice pari:
If Row Mod 2 = 0 Then
With GridView1.Data
.Background = &FFFF00
.Text = "Testo qualsiasi"
End With
Endif
End
