VB 如何將其列表框的內容傳送到另乙個程式的列表框

乙個實用的剪貼簿就足夠了。

在窗體中拉出兩個列表框控制項和乙個按鈕控制項，然後雙擊按鈕控制項將下面的**複製到游標位置;

dim a as stringa =

for i = 0 to - 1

接下來，將列表項從 ListBox1 移動到另乙個 ListBox2，該 ListBox2 使用 for 迴圈; 提取第乙個 listbox1 中的所有列表項，並將它們全部載入到另乙個 listbox2 中

全部從 list2 移動到 list1

dim i as integer

for i = - 1 to 0 step -1'這個迴圈應該以某種方式倒計時，否則它將超出界內。

0'新增到索引 0，以便移動後的順序一致

下乙個將乙個專案從 list1 移動到 list2

if >= 0 then'首先，如果選擇了專案，請檢查是否有結束

程式測試很完美，呵呵，滿意請及時採用，需要註解請私有子命令1 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

教人釣魚比教他釣魚要好。

DIY：建立另乙個 list2 並寫入 command1 click（）（前提是您將 list1 的多選設定為 2）。

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

if then

next i

假設文字框位於 form1 中，列表框位於 form2 中，則以下 ** 位於 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

下面的 ** 放在 form1 中：

private sub command1_click() '在第乙個文字框之後。

專用+按鈕屬。

set obj = text1

end sub

private sub command2_click() '第二個文字框後面的 + 按鈕。

set obj = text2

end sub

以下 ** 放置在公共模組檔案中：

public obj as object

使用列表框單擊事件來寫入事件內容。

if "1" then

a,b,c"

end if

另乙個類似於寫。