cambiare colore ad una specifica riga della gridview

[allegfede]

Codice: [Seleziona]

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 .....

[vuott]

Guarda la modalità per individuare la riga della GridView in questa pagina:

https://www.gambas-it.org/wiki/index.php/Cambiare_il_colore_di_fondo_di_una_riga_cliccata_in_una_GridView_e_far_tornare_quello_di_un%27altra_al_colore_iniziale

[allegfede]

ok, grazie, speravo di evitare di dover scansionare tutta la riga

penso possa essere una buona aggunta al core di gmabas, quello di avre un "wrapper" per considerare un oggetto singolo la riga(i) o la colonna(j) .. speriamo la implementino

[Gianluigi]

Non so se può esserti utile, ma un modo per farlo rapidamente può essere questo:

Codice: [Seleziona]

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

[vuott]

... può essere questo:

Interessante soluzione: la riporterò in Wiki.

[Gianluigi]

 

La si può vedere bene all'opera in DBSpeedyTest nella Farm l'evento Data viene attivato da GridView1.Rows.Count.

[vuott]

Però se in una cella della riga è presente del testo, questa cella non vede cambiare il colore del suo sfondo. 

Codice: [Seleziona]

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

[Gianluigi]

È per questo motivo che ti avevo indicato DBSpeedyTest, prova così:

Codice: [Seleziona]

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 

[vuott]

Ora devo proprio dedicarmi al mio amore 

...spero proprio si tratti della costruzione della Macchina del Tempo !