FORMATACAO DO LISTVIEW

MARCIOLOPES1967 14/10/2013 21:56:57
#430034
Alguem pode me ajudar???

Estou com um problema para formatar o listview
Preciso que a linha do preço fique em vermelho e com formato de moeda
Nao sei como formatar, se alguem puder me ajudar, agradeço

Eis o codigo que estou usando:

With list_cons
.Columns.Add([Ô]Cod[Ô], 40, HorizontalAlignment.Left)
.Columns.Add([Ô]Empresa[Ô], 120, HorizontalAlignment.Left)
.Columns.Add([Ô]Cliente[Ô], 120, HorizontalAlignment.Left)
.Columns.Add([Ô]Telefone[Ô], 90, HorizontalAlignment.Left)
.Columns.Add([Ô]E-mail[Ô], 100, HorizontalAlignment.Center)
.Columns.Add([Ô]Fornecedor[Ô], 120, HorizontalAlignment.Left)
.Columns.Add([Ô]Envio[Ô], 70, HorizontalAlignment.Left)
.Columns.Add([Ô]Entrega[Ô], 70, HorizontalAlignment.Left)
.Columns.Add([Ô]OS[Ô], 70, HorizontalAlignment.Left)
.Columns.Add([Ô]Descrição[Ô], 150, HorizontalAlignment.Left)
.Columns.Add([Ô]Status[Ô], 90, HorizontalAlignment.Center)
.Columns.Add([Ô]Tipo Conserto[Ô], 90, HorizontalAlignment.Center)
.Columns.Add([Ô]Valor Pago[Ô], 70, HorizontalAlignment.Left) (deve ser aqui)

End With

If tb2.Rows.Count > 0 Then
[ô]percorre a tabela pedidos e preenche o listview
For i = 0 To tb2.Rows.Count - 1
[ô]Me.cod_alt.Text = tb2.Rows(i).Item([Ô]CODIGO[Ô]) & [Ô][Ô]
list_cons.Items.Add(tb2.Rows(i)([Ô]codigo[Ô]))
list_cons.Items(i).SubItems.Add(tb2.Rows(i)([Ô]empresa[Ô]))
list_cons.Items(i).SubItems.Add(tb2.Rows(i)([Ô]cliente[Ô]))
list_cons.Items(i).SubItems.Add(tb2.Rows(i)([Ô]Telefone[Ô]))
list_cons.Items(i).SubItems.Add(tb2.Rows(i)([Ô]email[Ô]))
list_cons.Items(i).SubItems.Add(tb2.Rows(i)([Ô]fornecedor[Ô]))
list_cons.Items(i).SubItems.Add(tb2.Rows(i)([Ô]data_envio[Ô]))
list_cons.Items(i).SubItems.Add(tb2.Rows(i)([Ô]data_entrega[Ô]))
list_cons.Items(i).SubItems.Add(tb2.Rows(i)([Ô]OS[Ô]))
list_cons.Items(i).SubItems.Add(tb2.Rows(i)([Ô]Descricao[Ô]))
list_cons.Items(i).SubItems.Add(tb2.Rows(i)([Ô]Status[Ô]))
list_cons.Items(i).SubItems.Add(tb2.Rows(i)([Ô]tipo_conserto[Ô]))
list_cons.Items(i).SubItems.Add(tb2.Rows(i)([Ô]valor_pago[Ô])) (ou aqui)

Next
OMAR2011 15/10/2013 17:15:40
#430050 Resposta escolhida
list_cons.Items(i).SubItems.Add([txt-color=#e80000]FormatCurrency[/txt-color](tb2.Rows(i)([Ô]valor_pago[Ô])))
list_cons.Items(i).SubItems(12).BackColor = Color.Red
Acho que vai da certo.
MARCIOLOPES1967 15/10/2013 21:31:58
#430056
Sim Omar2011

Muito Obrigado pela dica, estou dando creditos a ti pela dica.

Obrigado mesmo.
Tópico encerrado , respostas não são mais permitidas
Voltar