FORMATA LISTVIEW COMO MOEDA

HEBERT43 01/07/2015 15:45:09
#448385
Bom Dia!

Queria ajuda com minha listview estou com uma listview para relatorio e nessa listview gostaria de formata os valores como moeda se alguem pode ajuda nao mecho muito de listview
ACCIOLLY 01/07/2015 15:52:24
#448387
Também não mecho muito com listview mas nas propriedades deste controle deve ter a opção [Ô]Data Format[Ô] ou algo do tipo.
HEBERT43 01/07/2015 16:30:13
#448389
Citação:

:
Também não mecho muito com listview mas nas propriedades deste controle deve ter a opção [Ô]Data Format[Ô] ou algo do tipo.


nao achei nada semelhante nao
JABA 01/07/2015 17:33:10
#448393 Resposta escolhida
Tente algo assim:

Ex:
itm.SubItems(3).Text = Cdbl(itm.SubItems(3).Text).ToString([Ô]N2[Ô])

ou Assim:

itm.SubItems(3).Text = Cdbl(itm.SubItems(3).Text).ToString([Ô]0.00[Ô])
DS2T 02/07/2015 00:35:34
#448398
Que eu saiba, o Listview não possuem colunas com dados tipados. Ou seja, colocar um formato numa coluna via propriedade não é possível.
Terá que fazer como nosso colega Jaba mencionou. Ou também pode usar o String.Format();

Abraços!
HEBERT43 02/07/2015 09:14:43
#448406
Citação:

:
Tente algo assim:

Ex:
itm.SubItems(3).Text = Cdbl(itm.SubItems(3).Text).ToString([Ô]N2[Ô])

ou Assim:

itm.SubItems(3).Text = Cdbl(itm.SubItems(3).Text).ToString([Ô]0.00[Ô])


tentei utilizar esse comando mais nao consegui deu erro de copilação

fiz um outro comando em outra listview os dados passava da textbox para listview entao formatava na textbox, ja ia para listview formatado.

esse e o comando que usei para passa formatado da textbox para listview

Private Sub caixa_total_Change()
If IsNumeric(Me.caixa_total) = True Then
Me.caixa_total = Format(Me.caixa_total, [Ô]R$ #,##0.00[Ô])

End If

End Sub

agora eu to fazendo uma consulta entao puxo direto da planilha como fasso para formata antes
OMAR2011 02/07/2015 10:39:42
#448409
HEBERT43,acredito que esteja usando o VB6.
Então, código do JABA não vai funcionar.
Qual o vb está usando?
Mostre como está preenchendo o listview.
Ai o pessoal vai dar as dicas conforme o vb.
HEBERT43 02/07/2015 10:46:24
#448410
Citação:

:
HEBERT43,acredito que esteja usando o VB6.
Então, código do JABA não vai funcionar.
Qual o vb está usando?
Mostre como está preenchendo o listview.
Ai o pessoal vai dar as dicas conforme o vb.


eu to utilizando esse comando para mandar para a listview

Private Sub buscar1_Click()


Set dados = Plan1.Range([Ô]A:A[Ô]).Find(caixa_cod, , , xlWhole)

If dados Is Nothing Then
MsgBox [Ô]Codigo Não Cadastrado[Ô], vbCritical, [Ô]ERRO[Ô]

Exit Sub
End If


ListView2.ListItems.Clear

For X = dados.Row To dados.Row
Set li = ListView2.ListItems.Add(Text:=Plan1.Cells(X, [Ô]a[Ô]).Value)
li.ListSubItems.Add Text:=Plan1.Cells(X, [Ô]b[Ô]).Value
li.ListSubItems.Add Text:=Plan1.Cells(X, [Ô]c[Ô]).Value
li.ListSubItems.Add Text:=Plan1.Cells(X, [Ô]d[Ô]).Value
li.ListSubItems.Add Text:=Plan1.Cells(X, [Ô]e[Ô]).Value
li.ListSubItems.Add Text:=Plan1.Cells(X, [Ô]f[Ô]).Value




Next
End Sub
JABA 02/07/2015 13:11:44
#448414
Seu post está como Vb.Net, deveria estar como Vb6

Vou me concentrar em apenas um item do ListView, então acho que ficaria assim:

li.ListSubItems.Add Text:= Format(Plan1.Cells(X, [Ô]f[Ô]).Value, [Ô]R$ #,##0.00[Ô])
HEBERT43 02/07/2015 13:37:58
#448416
Citação:

:
Seu post está como Vb.Net, deveria estar como Vb6

Vou me concentrar em apenas um item do ListView, então acho que ficaria assim:

li.ListSubItems.Add Text:= Format(Plan1.Cells(X, [Ô]f[Ô]).Value, [Ô]R$ #,##0.00[Ô])



Vlw ajudo Demais
Tópico encerrado , respostas não são mais permitidas
Voltar