REMOVER ITEM DA LISTBOX

PEGUDO 16/04/2010 11:00:29
#339586
Pessoal, estou precisando remover um determinado nome inserido em uma ListBox ao clicar em uma ComboBox.

O negócio é o seguinte: Ao adicionar um nome na Combo, este nome é adicionado à ListBox também (A ListBox fica oculta para uso posterior).

Meu código:

[txt-color=#0000f0]Private Sub[/txt-color] Combo1_Click()
[txt-color=#0000f0]Dim[/txt-color] Item, Item2 [txt-color=#0000f0]As Integer[/txt-color]
Item = Combo1.ListIndex
Objeto = Combo1.Text

ListView1.ListItems.Add , , Objeto
Combo1.RemoveItem Item
Tem = Tem - 1 [txt-color=#007100][ô]Variável global usada em outro lugar[/txt-color]

[txt-color=#0000f0]For[/txt-color] i = 0 [txt-color=#0000f0]To[/txt-color] List1.ListCount - 1
[txt-color=#0000f0]If[/txt-color] List1.List(i) = Objeto [txt-color=#0000f0]Then[/txt-color] [txt-color=#007100][ô]Aqui, se o texto da ListBox for = ao da ComboBox, deveria ser excuído[/txt-color]
List1.RemoveItem List1.List(i) [txt-color=#007100][ô]O erro acontece aqui acusando Type Mismatch[/txt-color]
[txt-color=#0000f0]End If
Next
End Sub[/txt-color]
ACG1574 16/04/2010 11:20:29
#339587
List1.RemoveItem List1.List(i) [ô]O erro acontece aqui acusando Type Mismatch

tente

List1.RemoveItem List1.Listindex(i) [ô]O erro acontece aqui acusando Type Mismatch
PEGUDO 16/04/2010 11:37:53
#339590
Dá o erro: Wrong number of arguments or invalid property assignment
PEGUDO 16/04/2010 12:16:16
#339596
Galera resolvi meu problema:

[txt-color=#0000f0]Private Sub[/txt-color] Combo1_Click()
[txt-color=#0000f0]Dim[/txt-color] Item, Item2 [txt-color=#0000f0]As Integer[/txt-color]
Item = Combo1.ListIndex
Objeto = Combo1.Text

ListView1.ListItems.Add , , Objeto
Combo1.RemoveItem Item
Tem = Tem - 1 [txt-color=#007100][ô]Variável global usada em outro lugar[/txt-color]

[txt-color=#0000f0]For[/txt-color] i = 0 [txt-color=#0000f0]To[/txt-color] List1.ListCount - 1
[txt-color=#0000f0]If[/txt-color] List1.List(i) = Objeto [txt-color=#0000f0]Then[/txt-color] [txt-color=#007100][ô]Aqui, se o texto da ListBox for = ao da ComboBox, deveria ser excuído[/txt-color]
List1.RemoveItem i [txt-color=#007100][ô]Era só colocar o index puro ou seja o contador[/txt-color]
[txt-color=#0000f0]End If
Next
End Sub[/txt-color]
Tópico encerrado , respostas não são mais permitidas
Voltar