[KG87]

ok bit of a noob question.

I have 2 listboxes, a command button and a textbox in a form.

for "training" purposes, both list boxes are filled with the numbers 1 - 10.

I wish to change the value of one of the items in the listbox and replace it with the value of the text box.

The code i've produced below doesnt work as expected.

the msgbox displays the listindex which is correct
the item is removed from the listindex which is also correct.

however, when the value of the textbox or "none" is added back into the listbox, the item is added at the bottom of the list instead of the place where the 1st item was removed.

Private Sub CommandButton1_Click()
Dim lnx As Integer
Dim plc As String

MsgBox ListBox2.ListIndex

lnx = ListBox2.ListIndex

ListBox2.RemoveItem ListBox2.ListIndex



If TextBox1.Text = "" Then

plc = "None"

ListBox2.AddItem plc
ListBox2.ListIndex = lnx

Else

ListBox2.ListIndex = lnx
ListBox2.AddItem TextBox1.Text


End If
 

Thanks in advance KG87

[ahmad_511]

Hello there
there are two ways to do that
1- use lndx when you add the list item

ListBox2.AddItem plc,lndx

2- don't remove the list item just change it like this

ListBox2.list(lndx)=TextBox2.text

It has been a while since I used vb6 so I hope I didn't missed somthing here