MSFLEXGRID COLORIDO
BOA TARDE A TODOS!
VB6 SP6
TENHO UM MSFLEXGRID COLUNA 0 COM AS DATAS DO MÊS, GOSTARIA DE QUANDO FOR DOMINDO FERIADO E SÃBADO AS LINHAS FICASSEM NA COR AMARELA.
SE ALGUEM PUDER AJUDAR.
PROCUREI NO FORUM MAS NÃO ACHEI.
DESDE JA AGRADEÇO.
ABRAÇO A TODOS.
VB6 SP6
TENHO UM MSFLEXGRID COLUNA 0 COM AS DATAS DO MÊS, GOSTARIA DE QUANDO FOR DOMINDO FERIADO E SÃBADO AS LINHAS FICASSEM NA COR AMARELA.
SE ALGUEM PUDER AJUDAR.
PROCUREI NO FORUM MAS NÃO ACHEI.
DESDE JA AGRADEÇO.
ABRAÇO A TODOS.
NINGUEM!!!
Criei uma rotina rapidinho..
Para descobrir o sabado e domingo de boa.
Mais feriados a rotina é bem maior e nao tenho nada comigo nesse momento.
Segue comando so troque os nomes dos MsFlexGrid
Dim Dia As Integer
Dim X As Integer
For X = 0 To MSFlexGrid1.Rows - 1
If IsDate(MSFlexGrid1.TextMatrix(X, 0)) Then
Dia = Weekday(MSFlexGrid1.TextMatrix(X, 0))
MSFlexGrid1.Col = 0
MSFlexGrid1.Row = X
If Dia = 7 Or Dia = 6 Then
MSFlexGrid1.CellBackColor = vbYellow
End If
End If
Next
Para descobrir o sabado e domingo de boa.
Mais feriados a rotina é bem maior e nao tenho nada comigo nesse momento.
Segue comando so troque os nomes dos MsFlexGrid
Dim Dia As Integer
Dim X As Integer
For X = 0 To MSFlexGrid1.Rows - 1
If IsDate(MSFlexGrid1.TextMatrix(X, 0)) Then
Dia = Weekday(MSFlexGrid1.TextMatrix(X, 0))
MSFlexGrid1.Col = 0
MSFlexGrid1.Row = X
If Dia = 7 Or Dia = 6 Then
MSFlexGrid1.CellBackColor = vbYellow
End If
End If
Next
MGALDINO, obrigado pela ajuda.
até que funcionou porem somente na célula fixa, gostaria de marcar a linha.
Tenho que fazer um loop para colorir as outras células?
até que funcionou porem somente na célula fixa, gostaria de marcar a linha.
Tenho que fazer um loop para colorir as outras células?
Sim...
Valeu pessoal.
Tópico encerrado , respostas não são mais permitidas