FLEXGRID

RICOCARDOZO 13/03/2012 18:08:45
#397096
Olá A todos!
Estou tentando Montar uma grade , mais com a seguinte formatação
Tipo Numa mesma linha Aparece um o texto principal Negrito e logo embaixo uma linha com fonte normal informando a que se refere.
Exemplo
---------------------------------------------------------------------------------------------
PAGAMENTOS EM DINHEIRO
Utilize esta opção para efetuar um pagamento em dinheiro.
---------------------------------------------------------------------------------------------
PAGAMENTOS COM CARTÃO
Utilize esta opção para efetuar um pagamento com cartões de creditos
---------------------------------------------------------------------------------------------

Será que tem como?
GANDA.NICK 13/03/2012 21:38:26
#397098 Resposta escolhida

se for tipo 1ª linha bold; 2ª linha normal; 3º linha bold; 4ª linha normal.... sem ter em conta as colunas pode usar uma sub ZEBRAFLEX que tá aqui mesmo no VBMANIA...

Dim i As Integer, j As Integer, ImpPar As Integer
With MSFG
  [ô]Pega resto da divisão das linhas fixas por 2,
  [ô]isto servirá para iniciar o zebramento a partir da segunda linha após
  [ô]a última linha fixa
  ImpPar = (.FixedRows Mod 2)
  [ô]Não redesenha o grid para agilizar o processo
  .Redraw = False
  [ô]Loop para ler todas as linhas menos as fixas
  For i = .FixedRows To .Rows - 1
    [ô]Seleciona a linha
    .Row = i
    [ô]Loop para ler todas as colunas do grid menos as fixas
    For j = .FixedCols To .Cols - 1
      [ô]Seleciona a coluna
      .Col = j
      [ô]Se o resto da divisão do nr da linha por 2 for diferente do ImpPar, então
      [ô]pinta com a cor informada, se não pinta com a cor de fundo do grid
      If (i Mod 2) <> ImpPar Then .CellFontBold = True _
      Else: .CellFontBold = False
    Next j
  Next i
  [ô]Redesenha o grid
  .Redraw = True
End With


so.alterei de [txt-color=#e80000].CellBackColor [/txt-color]por .[txt-color=#e80000]CellFontBold[/txt-color]

vejo se isto o ajuda... té +
Tópico encerrado , respostas não são mais permitidas
Voltar