MSFLEXGRID COLUNAS COLORIDAS

ANDYSARAGIOTTO 18/07/2013 09:45:42
#426240
Caros amigos, inseri um msflexgrid no meu form com 7 colunas representando todos os dias da semana
de segunda a domingo, so que eu quero alterar a cor de cada coluna por exemplo, a primeira coluna fica azul claro, a segunda azul escuro, a terceira azul claro e dai por diante,
eu fiz e deu certo, so que quando eu altero a data ele fica [Ô]pintando celula por celula tornando lento
o codigo que eu fiz ficou assim:
[ô]coluna 1
For i = 1 To 10
Me.MSFlexGrid1.Row = i
Me.MSFlexGrid1.Col = 1
Me.MSFlexGrid1.CellBackColor = &HFF0000
Next
[ô]coluna 2
For i = 1 To 10
Me.MSFlexGrid1.Row = i
Me.MSFlexGrid1.Col = 2
Me.MSFlexGrid1.CellBackColor = &HC00000
Next

[ô]coluna 3
For i = 1 To 10
Me.MSFlexGrid1.Row = i
Me.MSFlexGrid1.Col = 3
Me.MSFlexGrid1.CellBackColor = &HFF0000
Next

E DAI POR DIANTE ATE A COLUNA 7

Alguem sabe como fazer para as colunas serem repintadas rapidamente qdo eu altero o periodo de data?
MARCELO.TREZE 18/07/2013 10:48:54
#426247
tenta colocar tudo em um unico for

For i = 1 To 10
           Me.MSFlexGrid1.Redraw = False
           Me.MSFlexGrid1.Row = i
           Me.MSFlexGrid1.Col = 1
           Me.MSFlexGrid1.CellBackColor = &HFF0000
           Me.MSFlexGrid1.Col = 2
           Me.MSFlexGrid1.CellBackColor = &HC00000
           Me.MSFlexGrid1.Col = 3
           Me.MSFlexGrid1.CellBackColor = &HFF0000
           Me.MSFlexGrid1.Redraw = True
  Next
Faça seu login para responder
Voltar