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

list1.removeitem list1.listindex

[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]

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

Dim i
For i = 0 To List8.ListCount - 1
  If List8.Selected(i) Then
    List8.Removeitem List8.Listindex
  End If
Next i

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

if list1.listindex<> -1 then
list1.removeitem list1.listindex
end if
 

[Killer42]

Dim i
For i = 0 To List8.ListCount - 1
  If List8.Selected(i) Then
    List8.Removeitem List8.Listindex
  End If
Next i

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.

Dim i
For i = List8.ListCount - 1 To 1 Step -1
  If List8.Selected(i) Then
    List8.Removeitem i
  End If
Next i

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.

Dim i
For i = List8.ListCount - 1 To 1 Step -1
  If List8.Selected(i) Then
    List8.Removeitem i
  End If
Next i

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! :)