Cor da linha do ListBox no VBA

[michelsrt]

Boa noite, poderiam me ajudar por favor? Tenho este código no VBA para mudar a cor das linhas do ListBox, porem retorna o "erro de compilação: Metodo ou membro de ados não encontrado", referindo-se ao ListItems e ListSubItems:

Sub corLinha()
    On Error GoTo Error
    Dim i, y As Integer
        
    For i = 1 To Me.lstbox1.lis.Count
        For y = 1 To 10
            If Me.lstbox1.ListItems(i).ListSubItems(10).Text = "Enviado" Then
                Me.lstbox1.ListItems(i).ForeColor = &HC000&
                Me.lstbox1.ListItems(i).ListSubItems (10)
            Else
                Me.lstbox1.ListItems(i).ForeColor = &HC0&
                Me.lstbox1.ListItems(i).ListSubItems (10)
            End If
        Next y
    Next i
    Exit Sub
erro:
    MsgBox "Erro!", vbCritical, "CriterioCor"
End Sub

 

 

 

Obrigado!

[Alyson Ronnan Martins]

O erro ocorre porque os métodos ListItems e ListSubItems são utilizados com o controle ListView, não com o controle ListBox do VBA. O controle ListBox não possui esses métodos e propriedades.

Para alterar a cor de uma linha em um ListBox no VBA, você precisa adotar uma abordagem diferente, como alterar a cor do texto manualmente ao carregar os itens na caixa de listagem. Infelizmente, o controle ListBox nativo do VBA não suporta mudança de cor de linha diretamente. No entanto, você pode usar um ListView em vez de um ListBox, se for essencial ter essa funcionalidade.

Aqui está uma abordagem alternativa usando um controle ListView:

Sub corLinha()
    On Error GoTo erro
    Dim i As Integer

    For i = 1 To Me.lstview1.ListItems.Count
        If Me.lstview1.ListItems(i).ListSubItems(10).Text = "Enviado" Then
            Me.lstview1.ListItems(i).ForeColor = &HC000&
        Else
            Me.lstview1.ListItems(i).ForeColor = &HC0&
        End If
    Next i
    Exit Sub
erro:
    MsgBox "Erro!", vbCritical, "CriterioCor"
End Sub

Se você realmente precisa utilizar um ListBox, você pode considerar carregar os itens com cores diferentes em um controle alternativo ou adicionar alguma indicação visual (como prefixos no texto) para diferenciar os itens.

[michelsrt]

Obrigado Alyson, vou me programar para refazer com o ListView, acredito que terei um resultado melhor.

Abraços!