vb put the contents of list1 into the statement in list2

To give you an example, take a look for yourself:

To give you a simple example, you create two list boxes and add several items to the listzuo first. Draw another cmdyou button.

private sub cmdyou_click() 'Button.

dim x as integer 'Declare variable x to be numeric.

while > 0 'loop, when the list box (lstzuo) on the left is selected, for x = 0 to - 1'The value of the loop x, 0 to the total number of items in the list box.

if = true then 'judgment, if item x is selected in the left (lstzuo) of the list box, then.

Add the selected content in the left of the list box to the right (lstyou), x'Deletes the selected content in the left of the list box.

exit for 'End Loop, note here: you must first end the for loop, at the end of the judgment.

end if 'End judgment.

next x

wend 'If the while loop condition is not satisfied, the loop is terminated.

end sub

I don't know how to ask questions.

if = true then

If it wraps, add an end if

if = true then

end if

Or just write it on one line.

if = true then

In that case, ** should be no problem, run it in vb and add it to list2, the main effect of the building is not to remove the selected items from list1'Transfer the selected items from list1 to list2.

private sub command1_click()dim i as integer

for i = - 1 to 0 step -1if = true then

0iend if

next i

end sub

In addition, the virtual machine group is on the product**, which is super cheap.

is an array of content that you should write.

for i = 0 to - 1

next i

Upstairs regular way, OK

It may be possible to control to control, but I haven't tried.

The following is the list box in list1, double-click the data you want to transfer to list2, then the data is added to list2, and the related data in list1 will be automatically deleted!

private sub list1_dblclick()end sub

** and notes below:

private sub list1_dblclick()'The event is triggered when list1 is double-clicked.

list2 adds the text of the currently selected list1'list1: delete the currently selected entry end sub from list1

The syntax of the IndexRemoveItem method consists of the following sections:

Section description.

object

Required. An object expression with a value of Apply To to an object in the list.

index is required. An integer that represents the location of the item or row in the object to be deleted. For listbox or combobox

or the first row in the MS Flex Grid control, index = 0.

ss 'All the information is put into list1if instr(ss, then ss'If it contains the information entered in the text box, put it into list2