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

Da Gambas-it.org - Wikipedia.
 
(Una versione intermedia di uno stesso utente non è mostrata)
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()
+
  Public Sub Form_Open()
 
    
 
    
 
   Dim b As Byte
 
   Dim b As Byte
Riga 14: Riga 14:
 
   Next
 
   Next
 
    
 
    
−
  '''End'''
+
  End
−
<BR>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()
 
    
 
    
 
   With GridView1   
 
   With GridView1   
Riga 23: Riga 23:
 
   End With
 
   End With
 
    
 
    
−
  '''End'''
+
  End
 
    
 
    
 
    
 
    
−
  '''Public''' Sub GridView1_Data(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
 +
      .Background = &FFFF00
 +
      .Text = "Testo qualsiasi"
 +
    End With
 +
  Endif
 
    
 
    
−
  <FONT Color=gray>' ''E' necessario usare anche la Proprietà ".Data.Text", se si vuole che le celle contenenti il testo vengano colorate:''</font>
+
  End
−
  GridView1.Data.Text = "Testo qualsiasi"
 
−
 
 
−
'''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
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Colorare_il_fondo_di_una_riga_di_una_GridView&oldid=34414"