1樓：網海1書生
假定文字框在form1，列表框在form2，則以下**放在form2：
private sub list1_click()dim s as string, i as integerfor i = 0 to list1.listcount - 1if list1.selected(i) thenif s <> "" then s = s & "，"
s = s & list1.list(i)end if
next
obj.text = s
end sub
以下**放在form1：
private sub command1_click() '第一個文字框後面
專的+按鈕屬
set obj = text1
form2.show
end sub
private sub command2_click() '第二個文字框後面的+按鈕
set obj = text2
form2.show
end sub
以下**放在公共模組（module）檔案：
public obj as object
在vb中如何用程式表達listbox中被選中的專案
for i 1 to list1.listitems.count 逐條判斷是否被選中，如果選中，得到該專案if list1.listitems i selected true then stritem list1.listitems i end if next vb程式設計如何將listbox中選中...
中如何將文字排成雙列，word 中如何將文字排成雙列
word中分欄功能可以簡單 快速地將文字內容排成兩列。下面以word 2010為例進行演示 1 開啟文件 頁面佈局 分欄 兩欄。當然，也可以根據需要分成多欄。2 分成兩欄後的效果如下。在word內，全選，轉換 文字轉換成 列數，選2，文字分隔位置選 段落標記。確定。這樣內容就變成了兩列。如果不想看到...
如何將CAD轉到中，如何將CAD轉到WORD中？
cad，word，excel之間的轉換 一 cad圖形或 複製到word excel的步驟 1 更改cad系統變數wmfbkgnd值為off，使cad背景為透明，如果想讓複製的圖形是黑白的，可以在圖層管理器裡面把圖層顏色改為白色 7號 2 選擇需要複製的圖形，用 複製 工具進行復制 3 切換到wor...