How VB sends the contents of its listbox to the listbox of another program

A practical clipboard is all it takes.

Pull two listbox controls and one button control in the form, and then double-click the button control to copy the following ** to the cursor position;

dim a as stringa =

for i = 0 to - 1

next, which moves the list item from listbox1 to another listbox2, which is using the for loop; Fetch all the list items in the first listbox1 and load them all into another listbox2

All moved from list2 to list1

dim i as integer

for i = - 1 to 0 step -1'This loop should be counted down in a way or it will be out of bounds.

0'Add to index 0 so that the order is consistent after the move

nextMove one item from list1 to list2

if >= 0 then'First, check if there is an end if item is selected

The program test is perfect, hehe, if you are satisfied, please adopt it in time, if you need annotations, please ask private sub command1 click()if <>0 and = 1 then(

end if

end sub

private sub command2_click()for i = 0 to - 1

next i

end sub

private sub command3_click()if <>0 and = 1 then(

end if

end sub

private sub command4_click()for i = 0 to - 1

next i

end sub

private sub form_load()"1"

end sub

It is better to teach a man to fish than to teach him to fish.

DIY: Create another list2 and write in command1 click() (provided you set the multiselect of list1 to 2).

private sub command1_click()for i = 0 to - 1

if then

next i

Assuming that the text box is in form1 and the list box is in form2, then the following ** is placed in form2:

private sub list1_click()dim s as string, i as integerfor i = 0 to - 1

if then

if s <>"" then s = s & "，"

s = s &

end if

next send sub

The following ** is placed in form1:

private sub command1_click() 'After the first text box.

Dedicated + button genus.

set obj = text1

end sub

private sub command2_click() '+ button behind the second text box.

set obj = text2

end sub

The following ** is placed in the public module file:

public obj as object

Use the listbox click event to write the event content.

if "1" then

a,b,c"

end if

The other one is similar to write.