Problems with List box programming

[anukraju07]

Hi,

I would like to know how an item can be removed from a list box which contains more than one item. I'm getting an error if select 2nd or 3rd item for removal.
Please help me

[debasisdas]

please try to use

[CODE=vb]list1.removeite m list1.listindex[/CODE]

[Killer42]

Remember that the index goes from 0 to one less than the number of items. So if you are trying to remove the last one, you may be using too high a number. What error do you get? And what version of VB is this?

[anukraju07]

Hi Mr.Killer42,

I'm using VB 6.0 and is getting the fault message as" run time error 381 and invalid property array index.

regards

[debasisdas]

kindly post the code you are working on.

[anukraju07]

Problems with List box programming

Hi,

I'm making a programme in vb6.0 and got stuck up at a place where I want to remove items from a list box by pressing a command button after selecting the item in list box. I'm able to remove if only one item is there otherwise getting an error as " run time error 381 and invalid property array index." the code I tried is

[CODE=vb]Dim i
For i = 0 To List8.ListCount - 1
If List8.Selected( i) Then
List8.Removeite m List8.Listindex
End If
Next i[/CODE]

please help me

[debasisdas]

Are you trying to remove all the items from the list ?

[anukraju07]

Are you trying to remove all the items from the list ?

No. One by one at random. The main problem if I remove item with index 0

[debasisdas]

try this

[code=vb]
if list1.listindex <> -1 then
list1.removeite m list1.listindex
end if
[/code]

[Killer42]

[CODE=vb]Dim i
For i = 0 To List8.ListCount - 1
If List8.Selected( i) Then
List8.Removeite m List8.Listindex
End If
Next i[/CODE]

I think this code will work, if you reverse the For loop as shown below. If you think about it, you are counting from, say, 0 to 5. But if you remove an item along the way, all the rest will shift back one place. So not only will you skip over the subsequent one, but you will try to go one place too far.
[CODE=vb]Dim i
For i = List8.ListCount - 1 To 1 Step -1
If List8.Selected( i) Then
List8.Removeite m i
End If
Next i[/CODE]Note, I also changed the index of the item to be removed to i. I believe this will work better if you allow multiselect in the listbox.

[anukraju07]

I think this code will work, if you reverse the For loop as shown below. If you think about it, you are counting from, say, 0 to 5. But if you remove an item along the way, all the rest will shift back one place. So not only will you skip over the subsequent one, but you will try to go one place too far.
[CODE=vb]Dim i
For i = List8.ListCount - 1 To 1 Step -1
If List8.Selected( i) Then
List8.Removeite m i
End If
Next i[/CODE]Note, I also changed the index of the item to be removed to i. I believe this will work better if you allow multiselect in the listbox.

Hi Killer42,

Thanx a lot. It is working perfectly with a small change. The for loop lower limit has to be changed to 0 instead of 1 as otherwise the first one is not getting removed.

Regards

[Killer42]

It is working perfectly with a small change. The for loop lower limit has to be changed to 0 instead of 1 ...

Good catch! :)