COLORIR LISTVIEW
Bom dia, pessoal!
Precisaria de um código completo para fazer as linhas de fundo da minha listview mudar de cor, não como zebrada, mas para que possa fazer uma legenda com as cores e seus critérios,
como sou iniciante precisaria de uma ajuda de vcs...
estou usando vb6
Atenciosamente,
Bella.
Precisaria de um código completo para fazer as linhas de fundo da minha listview mudar de cor, não como zebrada, mas para que possa fazer uma legenda com as cores e seus critérios,
como sou iniciante precisaria de uma ajuda de vcs...
estou usando vb6
Atenciosamente,
Bella.
Pode mudar apenas a cor do que está escrito na linha?
Iniciante que sabe preencher um Listview com dados de uma tabela ou não sabe.
Bom dia,
Minha listview já esta carregando,
o que precisa que fique colorido o fundo da listview, para as letras já tenho código, mas para o fundo não consegui ainda,
a intenção é criar uma legenda com cores...
Minha listview já esta carregando,
o que precisa que fique colorido o fundo da listview, para as letras já tenho código, mas para o fundo não consegui ainda,
a intenção é criar uma legenda com cores...
Se já consegue mudar a cor da fonte, então use o mesmo método com backcolor.
Citação:ListView1.Items(i).SubItems(1).BackColor = VbRed
Luis2014, Obrigada por me responder!
Não foi possÃvel usar o BackColor porque estou usando este código
Public Sub ColorListviewRow(LV As ListView, RowNbr As Long, RowColor As OLE_COLOR)
Dim itmX As ListItem
Dim lvSI As ListSubItem
Dim intIndex As Long
On Error GoTo ErrorRoutine
Set itmX = LV.ListItems(RowNbr)
itmX.ForeColor = RowColor
For intIndex = 1 To LV.ColumnHeaders.Count [ô]- 1
Set lvSI = itmX.ListSubItems(intIndex)
lvSI.ForeColor = RowColor
Next
Set itmX = Nothing
Set lvSI = Nothing
Exit Sub
ErrorRoutine:
[ô] MsgBox Err.Description
End Sub
Tentei mudar do ForeColor para o BackColor, mas não funcionou,
pensei que tivesse um código, de API algo neste sentido que facilitasse o dia a dia.
Não foi possÃvel usar o BackColor porque estou usando este código
Public Sub ColorListviewRow(LV As ListView, RowNbr As Long, RowColor As OLE_COLOR)
Dim itmX As ListItem
Dim lvSI As ListSubItem
Dim intIndex As Long
On Error GoTo ErrorRoutine
Set itmX = LV.ListItems(RowNbr)
itmX.ForeColor = RowColor
For intIndex = 1 To LV.ColumnHeaders.Count [ô]- 1
Set lvSI = itmX.ListSubItems(intIndex)
lvSI.ForeColor = RowColor
Next
Set itmX = Nothing
Set lvSI = Nothing
Exit Sub
ErrorRoutine:
[ô] MsgBox Err.Description
End Sub
Tentei mudar do ForeColor para o BackColor, mas não funcionou,
pensei que tivesse um código, de API algo neste sentido que facilitasse o dia a dia.
Listview vb6 acho que não tem BackColor
LUIS2014 isto não do Vbnet
LUIS2014 isto não do Vbnet
ISABELLASILVA este código faz apenas uma linha do Listview mudar a cor.
Para mudar a cor do ForeColor com condição é bem melhor.
Para mudar a cor do ForeColor com condição é bem melhor.
hum, mudar o componente para o msflexgrid é uma opção?
é até melhor do que o listview.
acho que o listview do vb6 não permite trocar a cor da célula, ele sempre vai trocar a cor do listview todo.
é até melhor do que o listview.
acho que o listview do vb6 não permite trocar a cor da célula, ele sempre vai trocar a cor do listview todo.
Ninguém tem um código para colorir listview para me ajudar? me refiro ao fundo não a fonte...
lembrando que estou usando vb6
atenciosamente,
lembrando que estou usando vb6
atenciosamente,
[ô]-------------------------------
[ô] FUNÇÃO PARA ZEBRAR O LISTVIEW
[ô]-------------------------------
Private Sub AltLVBackground(lv As ListView, _
ByVal BackColorOne As OLE_COLOR, _
ByVal BackColorTwo As OLE_COLOR)
[ô]---------------------------------------------------------------------------------
[ô] Purpose : Alternates row colors in a ListView control
[ô] Method : Creates a picture box and draws the desired color scheme in it, then
[ô] loads the drawn image as the listviews picture.
[ô]---------------------------------------------------------------------------------
Dim lh As Long
Dim lSM As Byte
Dim picAlt As PictureBox
With ListView1
If .View = lvwReport And .ListItems.count Then
Set picAlt = Me.Controls.Add([Ô]VB.PictureBox[Ô], [Ô]picAlt[Ô])
lSM = .Parent.ScaleMode
.Parent.ScaleMode = vbTwips
.PictureAlignment = lvwTile
lh = .ListItems(1).Height
With picAlt
.BackColor = BackColorOne
.AutoRedraw = True
.Height = lh * 2
.BorderStyle = 0
.Width = 10 * Screen.TwipsPerPixelX
picAlt.Line (0, lh)-(.ScaleWidth, lh * 2), BackColorTwo, BF
Set ListView1.Picture = .image
End With
Set picAlt = Nothing
Me.Controls.Remove [Ô]picAlt[Ô]
ListView1.Parent.ScaleMode = lSM
End If
End With
End Sub
evento clik, change, load
AltLVBackground ListView1, vbWhite, &HFFFFC0
Finalize o top depois de resolvido okok
[ô] FUNÇÃO PARA ZEBRAR O LISTVIEW
[ô]-------------------------------
Private Sub AltLVBackground(lv As ListView, _
ByVal BackColorOne As OLE_COLOR, _
ByVal BackColorTwo As OLE_COLOR)
[ô]---------------------------------------------------------------------------------
[ô] Purpose : Alternates row colors in a ListView control
[ô] Method : Creates a picture box and draws the desired color scheme in it, then
[ô] loads the drawn image as the listviews picture.
[ô]---------------------------------------------------------------------------------
Dim lh As Long
Dim lSM As Byte
Dim picAlt As PictureBox
With ListView1
If .View = lvwReport And .ListItems.count Then
Set picAlt = Me.Controls.Add([Ô]VB.PictureBox[Ô], [Ô]picAlt[Ô])
lSM = .Parent.ScaleMode
.Parent.ScaleMode = vbTwips
.PictureAlignment = lvwTile
lh = .ListItems(1).Height
With picAlt
.BackColor = BackColorOne
.AutoRedraw = True
.Height = lh * 2
.BorderStyle = 0
.Width = 10 * Screen.TwipsPerPixelX
picAlt.Line (0, lh)-(.ScaleWidth, lh * 2), BackColorTwo, BF
Set ListView1.Picture = .image
End With
Set picAlt = Nothing
Me.Controls.Remove [Ô]picAlt[Ô]
ListView1.Parent.ScaleMode = lSM
End If
End With
End Sub
evento clik, change, load
AltLVBackground ListView1, vbWhite, &HFFFFC0
Finalize o top depois de resolvido okok
Tópico encerrado , respostas não são mais permitidas