ColoraCella MsFlexGrid1,c1,c2
'dove c1=numero di riga e c2=numero di colonna '_________________________________________________________ Public Sub ColoraCella(a As Control, c1 As Integer, c2 As Integer) a.Redraw = False a.Row = c1: a.Col = c2 a.CellBackColor = QBColor(1): a.CellForeColor = QBColor(15) a.Redraw = True End Sub Come colorare le celle di una MsFlexGrid |