FLEXGRID AO CLICAR ALTERAR A COR

LEOBEVI 13/10/2010 13:20:46
#354989

RicoCardozo, veja se é isto....


Private Sub GRID_Localiza_DblClick()
With Grid_Localiza
.Col = 0
Do
If .Col < NumeroColunas - 1 Then
.CellFontItalic = True
.CellForeColor = &HFF&
.Col = .Col + 1
Else
.CellFontItalic = True
.CellForeColor = &HFF&
Exit Do
End If
Loop
End With
End Sub

CHARLESTON10 13/10/2010 13:23:43
#354991 Resposta escolhida

NumeroColunas é uma variavel ?

LEOBEVI 13/10/2010 13:27:10
#354992

Pode ser uma variável, ou o numero de colunas que existe na grid
exemplo:
Private Sub SetaGridLocaliza()
With Grid_Localiza
.Clear
.Rows = 2
[txt-color=#e80000] .Cols = 3[/txt-color]
.FixedRows = 1
.FixedCols = 0
.ColWidth(0) = 0
.ColWidth(1) = 5300
.ColWidth(2) = 0

.Row = 0
.Col = 0
.text = [Ô]Código[Ô]
.Col = 1
.CellAlignment = 3
.text = [Ô]EMPRESA[Ô]
.Col = 2
.CellAlignment = 3
.text = [Ô]ENDEREÇO[Ô]
End With
End Sub

Private Sub GRID_Localiza_DblClick()
With Grid_Localiza
.Col = 0
Do
If .Col < 2 Then
.CellFontItalic = True
.CellForeColor = &HFF&
.Col = .Col + 1
Else
.CellFontItalic = True
.CellForeColor = &HFF&
Exit Do
End If
Loop
End With
End Sub

CHARLESTON10 13/10/2010 14:12:18
#355000

Beleza...
Como eu faço mudar a cor de uma linha(row) inteira de um FlexGrid.
Assim, eu clico em uma coluna (2,1) ij, e a linha inteira muda de cor ??

LEOBEVI 13/10/2010 16:51:02
#355018

ao invés de .CellForeColor = &HFF& troque por .CellBackColor = &HFF&

CHARLESTON10 13/10/2010 18:21:12
#355026

Valeu, consegui !!
Ficaria assim

[txt-color=#0000f0] With [/txt-color]MSFlexGrid1

.Col = 0
[txt-color=#0000f0] Do[/txt-color]
[txt-color=#0000f0] If[/txt-color] .Col < 2 [txt-color=#0000f0]Then[/txt-color][txt-color=#007100] [ô] colunas que há no FlexGrid[/txt-color]
.CellFontItalic = True [txt-color=#007100][ô]deixar letra no modo italico[/txt-color]
.CellBackColor = &HFF& [txt-color=#007100][ô]cor do fundo vermelha[/txt-color]
.Col = .Col + 1
[txt-color=#0000f0]Else[/txt-color]
.CellBackColor = &HFF& [txt-color=#007100][ô]cor do fundo vermelha[/txt-color]
[txt-color=#0000f0] Exit Do[/txt-color]
[txt-color=#0000f0] End If[/txt-color]
[txt-color=#0000f0]Loop[/txt-color]
[txt-color=#0000f0]End With[/txt-color]