|
|
Postada em 10/05/2006 16:26 hs
Olá, pessoal, gostaria de saber se tem como eu fazer com que os valores de uma coluna no MSFlexGrid saíssem com uma cor difrerente (por exemplo: azul). Nesta coluna são retornados valores de um Banco de Dados. Experimentei correr todos os itens do Grid e colocar o comando: Grid.CellForeColor=vbBlue, mas não deu certo. Alguém pode me ajudar? |
|
|
|
|
|
|
|
Postada em 10/05/2006 16:34 hs
Function EImpar(ByVal iNum As Long) As BooleanEImpar = (iNum Mod 2)End FunctionSub FlexCores(m As MSHFlexGrid, lCorPar As Long, lCorImpar As Long)On Error GoTo aDim iLinha As Variantm.FillStyle = flexFillRepeatiLinha = 1Do DoEvents If iLinha = m.Rows Then Exit Do With m .Row = iLinha If EImpar(iLinha) Then .Col = 1 .ColSel = .Cols - 1 .CellBackColor = lCorImpar Else .Col = 1 .ColSel = .Cols - 1 .CellBackColor = lCorPar End If End With iLinha = iLinha + 1Loopm.FillStyle = flexFillSingleExit Suba:m.FillStyle = flexFillSingleExit SubEnd Sub
|
|
|
|
|
|
Postada em 10/05/2006 16:39 hs
Grid1.Col = 0 Then
Grid1.CellBackColor = 260000
dsmn
|
|
|
|
|
|
Postada em 10/05/2006 16:41 hs
Só não esqueça que isso muda a cor da célula ou seja não é da coluna inteira terá que fazer um for exemplo: for x=1 to grid.rows-1 grid1.row=x grid1.col=0 grid1.cellBackColor = (Cor desejada) next x
dsmn
|
|
|
|
|
|
Postada em 10/05/2006 16:53 hs
Valeu, amigo. E existe uma maneira de, num MSFlexGrid editável, fazer com que uma coluna fique bloqueada para edição, como se fosse o Enabled=False do Textbox? |
|
|
|
|
|
Postada em 10/05/2006 17:21 hs
uma maneira fácil de fazer isso é pelo keypress, basta testar a coluna exemplo: Private Sub Grid1_KeyPress(KeyAscii As Integer)
If Grid1.Col <> 0 Then ' so aceita digitação na coluna 0 exit sub else
If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 44 Then só aceita os caracteres numéricos
Grid1.Text = Grid1.Text + Chr$(KeyAscii)
Else
If KeyAscii = 8 Then --- backspace
If Len(Grid1.Text) > 0 Then Grid1.Text = Left$(Grid1.Text, Len(Grid1.Text) - 1)
End If
End If
end if |
|
|
|
