If group = True Then
GridView_Media.Row[i].Background = Color.LightGray
Else
GridView_Media.Row[i].Background = Color.Background
Endif
errore:
non e' un oggetto dell'Fmain .....
mi accontenterei di cambiare il colore del font .....
Non so se può esserti utile, ma un modo per farlo rapidamente può essere questo:
Public Sub Form_Open()
With GridView1
.Columns.Count = 5
.Rows.Count = 50
End With
End
Public Sub GridView1_Data(Row As Integer, Column As Integer)
If Row Mod 2 = 0 Then GridView1.Data.Background = &HBFFFBF
End
Però se in una cella della riga è presente del testo, questa cella non vede cambiare il colore del suo sfondo. :-\
Public Sub Form_Open()
Dim b As Byte
With GridView1
.Columns.Count = 4
.Rows.Count = 8
End With
GridView1[0, 1].Text = "aaa"
For b = 0 To GridView1.Columns.Max
GridView1[b, b].Text = CStr(b)
Next
End
Public Sub GridView1_Data(Row As Integer, Column As Integer)
GridView1.Data.Background = &FF0000
End
È per questo motivo che ti avevo indicato DBSpeedyTest, prova così:
Public Sub Form_Open()
With GridView1
.Columns.Count = 5
.Rows.Count = 50
End With
End
Public Sub GridView1_Data(Row As Integer, Column As Integer)
GridView1.Data.Text = "aaa_" & Row & Column
If Row Mod 2 = 0 Then GridView1.Data.Background = &HBFFFBF
End
Ora devo proprio dedicarmi al mio amore :ciao: