Listview fore color


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Listview fore color

Ronaldo
não registrado

Postada em 04/07/2008 21:29 hs

tem como setar uma coluna da listview com outra cor se no banco de dados tiver um campo dizendo que o produto esta pago por exemplo?

na lista te que mostrar todos os não pagos e os pagos...

os não pagos por de vermelho, e os pagos por de verde...por exemplo...

Ama

UBERLÂNDIA
MG - BRASIL

Postada em 07/07/2008 01:13 hs

O FORM TEM A PROPRIEDADE SCALEMODE EM PIXELS

picBG é uma picture com propriedade visible=false

lvwBackColour é a ListView

' se criar funcão é só passar tambem a cor

Private Sub lvwBackColour_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
Dim ncol As Integer

ncol = ColumnHeader.Index
    picBG.Width = lvwBackColour.Width
    picBG.Height = lvwBackColour.Height
    picBG.ScaleWidth = 1
    picBG.DrawWidth = 1
    picBG.Cls
    picBG.ScaleMode = vbPixels
    picBG.Move lvwBackColour.Left, lvwBackColour.Top
    picBG.Line (ColumnHeader.Left, 0)-(ColumnHeader.Left + ColumnHeader.Width, picBG.Height), vbGreen, BF

lvwBackColour.Picture = picBG.Image

End Sub

Problema solucionado = click no cadeado para post encerrado!!!!!!!!!

Ronaldo
não registrado

Postada em 08/07/2008 22:17 hs

Consegui de um jeito mais facil...

Dim j%
While Not Tb_Sql.EOF
Set lista = List4.ListItems.Add(, , Tb_Sql!codigo)
lista.SubItems(1) = Tb_Sql!protetico
lista.SubItems(2) = Tb_Sql!paciente
lista.SubItems(3) = Tb_Sql!guia
lista.SubItems(6) = Tb_Sql!Data_Moldagem
lista.SubItems(7) = Tb_Sql!retorno
lista.SubItems(4) = Tb_Sql!produto
lista.SubItems(5) = Tb_Sql!valor
lista.SubItems(8) = Tb_Sql!Entregue
lista.SubItems(9) = Tb_Sql!Pago
lista.SubItems(10) = Tb_Sql!codigo

If Tb_Sql!Pago = "pago" Then
lista.ForeColor = &HC000&

For j = 1 To lista.ListSubItems.Count
lista.ListSubItems(j).ForeColor = lista.ForeColor

Next j
End If

If Tb_Sql!Pago = "Em Débito" Then
lista.ForeColor = 255

For j = 1 To lista.ListSubItems.Count
lista.ListSubItems(j).ForeColor = lista.ForeColor
Next j
End If

Ama

UBERLÂNDIA
MG - BRASIL

Postada em 09/07/2008 00:01 hs

legal mais eu não gosto de laço principalmente quando se chega numa quantidade acima de 35.000 60.000 registros.

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR