Differenze tra le versioni di "Colorare il fondo di una riga di una GridView"

Da Gambas-it.org - Wikipedia.
 
Riga 15: Riga 15:
 
    
 
    
 
  End
 
  End
oppure usando la Proprietà ".Data.Background" nell'Evento "_Data()" della ''GridView'': <SUP>&#091;[[#Note|nota 1]]&#093;</sup>
+
oppure usando la Proprietà ".Data.Background" nell'Evento "_Data()" della ''GridView'':
 
  Public Sub Form_Open()
 
  Public Sub Form_Open()
 
    
 
    
Riga 28: Riga 28:
 
  Public Sub GridView1<FONT Color=#B22222>_Data</font>(Row As Integer, Column As Integer)
 
  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
<FONT Color=gray>' ''E' necessario usare anche la Proprietà ".Data.Text", se si vuole che le celle contenenti il testo vengano colorate:''</font>
+
      .Background = &FFFF00
  GridView1.Data.Text = "Testo qualsiasi"
+
      .Text = "Testo qualsiasi"
 +
    End With
 +
  Endif
 
    
 
    
 
  End
 
  End
 
 
 
=Note=
 
[1] Questa soluzione è stata suggerita da [https://www.gambas-it.org/smf/index.php?action=profile;u=1249 Gianluigi], membro del forum gambas-it.org .
 

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