eu tenho um listbox que tenho várias quantidades e tenho um outro com cod de produtos.

quando eu seleciono por exemplo dois códigos de produtos eu faço um calculo, aí eu tenho que remover as quantidade correspondente daqueles pedido.

 

estou consegiondo remover apenas 1 e não os que selecionei.

item = lstcodigopedido.ListIndex
lstqtdepedido.RemoveItem (item)

 

como faço para remover do list as quantidades correspondente daqueles cod produtos que selecionei?

for i% = 0 to lstcodigopedido.listcount -1

    if lstcodigopedido.Selected(i%) then

      lstqtdepedido.removeitem(i%)

   endif

next i%

 

Não sei se é o melhor caminho, mas funcionou.

 

' Mude a propriedade do List1 MultSelect para 2-Extended

 

Option Explicit
  Dim i, j As Integer
  Dim x()  As String
Private Sub Form_Load()
  For i = 65 To 90
    List1.AddItem Chr(i)
  Next
End Sub
Private Sub Command1_Click()
  j = List1.ListCount - 1
  ReDim x(List1.ListCount)
  For i = 0 To j
    If List1.Selected(i) = False Then
      x(i) = List1.List(i)
    End If
  Next
  List1.Clear
  For i = 0 To j
    If x(i) <> "" Then
      List1.AddItem x(i)
    End If
  Next
  List1.Refresh
End Sub

Jayme