CLICAR NO FLEXGRID E TORNAR LINHA COMO BOLD

RICOCARDOZO 16/06/2011 00:06:05
#376910
o códgio abaixo ao clicar no Flexgrid em uma determinda linha ele a tornará bold.

Private Sub Grade2_Click()
grade2.CellFontBold =True
End Sub

Mas por exemplo
ao clicar em outra linha a anterior continua como bold
Como e eu faço para selecionar uma por vez.
Tipo a anterior volta como bold false.
NIKYTS 16/06/2011 03:16:11
#376914 Resposta escolhida
vê se te ajuda

      [ô]SELECIONA A LINHA PRETENDIDA
    intLinSel = MSFlexGrid1.Row
    intcolSel = MSFlexGrid1.Col
    With MSFlexGrid1
        intLinSel = .Row
        For intLin = 1 To .Rows - 1
            .Row = intLin
            For intCol = 0 To 1
                .Col = intCol
            [ô]REPOI CORES
            .CellFontBold = False
            Next
        Next
        .Row = intLinSel
        [ô]SELECIONAR AS CELULAS
        For intCol = 0 To 1
            .Col = intCol
            .CellFontBold = True
        Next
        .Col = intcolSel
    End With
Tópico encerrado , respostas não são mais permitidas
Voltar