|
|
Postada em 03/02/2010 18:22 hs
Pessoal eu tenho um MSFlexGrid e tenho uma coluna Valor Serviço e queria saber como colocar o valor na direita da coluna
Exemplo : Aqui eu monto a grid
'Sub que monta a grid de consulta
Private Sub MontaGrid()
Dim s$, t As Integer
s$ = "<Código|Descrição do Serviço|Valor do Serviço|Comissão %"
GridConsServicos.FormatString = s$
GridConsServicos.ColWidth(0) = 1500
GridConsServicos.ColWidth(1) = 4900
GridConsServicos.ColWidth(2) = 1600
GridConsServicos.ColWidth(3) = 1600
GridConsServicos.ColAlignment(0) = 1 'a esquerda
GridConsServicos.ColAlignment(1) = 1
GridConsServicos.ColAlignment(2) = 1
GridConsServicos.ColAlignment(3) = 2 ' centraliza (=3 tb fica centralizado)
GridConsServicos.Row = 0
For t = 0 To GridConsServicos.Cols - 1
GridConsServicos.Col = t
GridConsServicos.CellFontBold = True
Next
End Sub
Por já muito obrigado
|
|
|
|
|
|
Álvaro
|
GUARULHOS
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 03/02/2010 18:52 hs
Diogo tentai ai
No meu quando foi nº eu utilizei o 9 e quando foi texto utilizei o 6
Grid.ColAlignment(1) = 6 ou Grid.ColAlignment(1) = 9
Acho que isso pode te ajudar
Abraço e que DEUS te abençõe, espero poder ter te ajudado 
Eu sou o Senhor, o DEUS de vocês;
eu os seguro pela mão e lhes digo;
Não fiquem com medo, pois eu os ajudo
Isaias 41:13
|
|
|
|
|
|
Postada em 03/02/2010 19:25 hs
Valeu Álvaro.... funcionou...
E q Deus te abençoe tb..
Abraços fraternos
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 04/02/2010 08:54 hs
diogo mais simples ainda Dim s$, t As Integer
s$ = "<Código|<Descrição do Serviço|>Valor do Serviço|^Comissão %"
GridConsServicos.FormatString = s$
GridConsServicos.ColWidth(0) = 1500
GridConsServicos.ColWidth(1) = 4900
GridConsServicos.ColWidth(2) = 1600
GridConsServicos.ColWidth(3) = 1600
veja como fazer apenas na string mesmo, veja a alteração de s$ |
|
|
|
|
|
Postada em 04/02/2010 09:09 hs
Ok vou testar e muito obrigado
|
|
|
|
