Página 1 de 1

Mudar BackColor da ListBox

Enviado: 30 Jul 2018 às 09:41
por JCabral
Boa tarde

Estou com dificuldade em mudar a Backcolor de uma ListBox em função do item clickado, ou seja gostaria de mudar a ListBox.BackColor conforme mudasse o valor escolhido da listbox.

Será que não é possível mudar a Backcolor de uma listbox quando o valor que determina essa mudança é função do valor da própria listBox?
Deixo exemplo com o código que acho correto mas que não funciona.

Agradeço ajudo
Jorge Cabral

Re: Mudar BackColor da ListBox

Enviado: 30 Jul 2018 às 10:23
por osvaldomp
substitua
Código: Selecionar todos
Private Sub ListBox1_Click()
por
Código: Selecionar todos
Private Sub ListBox1_AfterUpdate()

Mudar BackColor da ListBox

Enviado: 01 Ago 2018 às 12:59
por JCabral
Osvaldo

Quando seleciono o primeiro item da ListBox ele não coloca a barra azul (item selecionado) mas só no primeiro item, em todos os outros o item clickado fica com a barra azul de selecionado, qual a razão disso acontecer? Tem solução?

Obrigado

Re: Mudar BackColor da ListBox

Enviado: 01 Ago 2018 às 13:50
por osvaldomp
JCabral escreveu:... qual a razão disso acontecer? Tem solução?
Disponibilize nova amostra do seu arquivo Excel com o código que não está funcionando corretamente ;)

Re: Mudar BackColor da ListBox

Enviado: 02 Ago 2018 às 05:42
por JCabral
Deixo aqui o arquivo com a alteração sugerida, passar
Código: Selecionar todos
Private Sub ListBox1_Click()

para
Código: Selecionar todos
Private Sub ListBox1_AfterUpdate()
O problema só acontece ao selecionar o primeiro item da ListBox, ou seja o item não fica selecionado (azul).

Re: Mudar BackColor da ListBox

Enviado: 03 Ago 2018 às 09:40
por osvaldomp
Fiz várias tentativas e pesquisas e não consegui resolver. Me parece um "bug" do VBA.
O primeiro item só é pintado de azul após um segundo clique sobre ele.

Mudar BackColor da ListBox

Enviado: 06 Ago 2018 às 06:55
por JCabral
Exatamente, é esse o problema.