Este fórum está sendo desativado

[IvanPi]

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

Código: Selecionar todos

   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

[IvanPi]

Olá, consegui o código, num grupo de Whats:

Código: Selecionar todos

     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

Valeu pessoal!