LOOP PARA REMOVER ITENS DA COMBOBOX

 Tópico anterior Próximo tópico Novo tópico

LOOP PARA REMOVER ITENS DA COMBOBOX

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#498618 - 24/11/2021 18:57:51

IVANPI
GUAPIARA
Cadast. em:Janeiro/2017


Última edição em 24/11/2021 18:59:56 por IVANPI

Olá pessoal, estou com o seguinte código abaixo:

   For i = 1 To 40
      cboNumero.AddItem i
   Next i
  
   For y = 1 To ListView.ListItems.Count
         If cboNumero.List(y) = ListView.ListItems.Item(y).ListSubItems(1) Then
            cboNumero.RemoveItem (y)
         End If
   Next y


Estou tentando, remover itens da combobox, de acordo com o número que está listview, coluna da qual tb tem números. Então, número que aparecerem na Listview, devem ser removidos da combobox, através de um loop, porém sem sucesso.

Poderiam me dar uma luz? :)

Desde já obrigado.

Ivan Jpi




Resposta escolhida #498620 - 24/11/2021 19:30:30

ALVAROVB2009
GUARULHOS
Cadast. em:Maio/2009


Como vc esta percorrendo o list para ver o que precisa ser apagado, limpe o combo antes e vá adicionando os números que ficarão no list

Teoria quando se sabe tudo, e nada funciona. Prtica e quando tudo funciona e ningum sabe porque.
[]Aquele que quer aprender gosta que lhe digam quando esta errado;
s o tolo no gosta de ser corrigido -[]Prov.12:1


#498638 - 26/11/2021 20:57:04

IVANPI
GUAPIARA
Cadast. em:Janeiro/2017


Citação:
:
Como vc esta percorrendo o list para ver o que precisa ser apagado, limpe o combo antes e vá adicionando os números que ficarão no list



Boa noite, consegui encontrar o código num grupo, que foi me disponibilizado:

      For i = 1 To 40
        cboNumero.AddItem i
    Next i

    For y = 0 To cboNumero.ListCount
        For x = 1 To ListView.ListItems.Count
            If cboNumero.ListCount = y Then Exit Sub
            If cboNumero.List(y) = ListView.ListItems.Item(x).SubItems(1) Then
                cboNumero.RemoveItem (y)
            End If
        Next x
    Next y


Muito agradecido, pela sua prontidão.

Ivan Jpi



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por IVANPI em 28/11/2021 15:56:05