1樓：匿名使用者
vb可通過迴圈來獲取listbox控制元件的list屬性。
list屬性，返回或設定控制元件的列表部分的專案。列表是一個字串陣列，陣列的每一項都是一列表專案。
下列**讀取listbox控制元件的list屬性。
option explicit
dim i as long
private sub form_click()for i = 1 to 10
print list1.list(i) '輸出listbox的前10項內容
next
end sub
private sub form_load()dim entry as string ' 宣告變數。
for i = 1 to 30 ' 計數值從 1 到 30。
entry = "entry " & i ' 建立輸入項。
list1.additem entry ' 新增該輸入項。
next i
end sub
2樓：匿名使用者
private sub command1_click()text1.text = list1.list(0)text2.
text = list1.list(1)text3.text = list1.
list(2)text4.text = list1.list(3)text5.
text = list1.list(4)end sub
如果有多個文字框用：
private sub command1_click()dim i as integer
for i = 0 to me.controls.count - 1if left(me.controls(i).name, 4) = "text" then
me.controls(i).text = list1.
list(cint(right(me.controls(i).name, len(me.
controls(i).name) - 4)) - 1)
end if
next i
end sub
前提：你的文字框名稱必須是預設的，text1，text2，text3，。。。。
當然，用控制元件陣列，就可以大大簡化**。
3樓：匿名使用者
您好，建議您把text設定成控制元件陣列
您好，在command_click事件中用for迴圈就可以實現sub command_click()
for i=0 to ubound(listbox)text(i).text=listbox.list(i)next iend
4樓：excel開發
for i=0 to 4
print list1.list(i)
next i
5樓：匿名使用者
private sub form_load()for i = 0 to 4
list1.additem i
next i
end sub
private sub list1_click()select case list1.listindexcase list1.listindex
text1(list1.listindex).text = list1.list(list1.listindex)
end select
end sub
vb菜鳥提問：vb 如何讀取listbox中選中的一行資料至text中？
6樓：混球
就這樣白賺你100分我都不好意思了。
text1.text = list1.list(list1.listindex)
7樓：想請教你們哈
試試：textbox1.text = listbox1.selecteditem
？或者：
text1.text = listbox1.selecteditem
vb怎麼讀取acceess資料庫中的資料並顯示在介面上
開啟vb程式，點檔案 新建工程 資料工程，在視窗新增一個command控制元件和一個datagrid控制元件。插入如下 private sub command1 click dim mycon as new adodb.connectiondim myrt as new adodb.recordse...
vb中get讀取二進位制檔案的檔案號後面的位置是什麼意思
將一個已開啟的磁碟檔案讀入一個變數之中。語法get filenumber,recnumber varname get 語句的語法具有以下幾個部分 部分 描述 filenumber 必要。任何有效的檔案號。recnumber 可選。variant long 記錄號 random 方式的檔案 或位元組數...
Ubound在VB中怎麼用啊，vb裡的lbound和ubound的用法
假設 dim a as integerredim a 100 重定義陣列 為101個元素 保留原回有陣列資訊，新增一個元素 redim preserve a ubound a 1 至此陣列元素有102個 若不需答保留原有陣列資訊，去掉preserve關鍵字即可。ubound ubound函式 返回抄...