1樓：匿名使用者
private sub command1_click()
print list1.itemdata(list1.listindex)
end sub
private sub form_load()
list1.additem "a"
list1.additem "b"
list1.additem "c"
list1.additem "d"
list1.itemdata(0) = 1
list1.itemdata(1) = 2
list1.itemdata(2) = 3
list1.itemdata(3) = 4
end sub
可以利用itemdata屬性來來為每個列表項繫結乙個數值
以下**於網路：
itemdata 屬性
示例� 應用於
返回或設定 combobox 或 listbox 控制項中每個專案具體的編號。
語法object.itemdata(index) [= number]
itemdata 屬性語法包含下面部分：
部分 描述
object 物件表示式，其值是「應用於」列表中的乙個物件。
index 物件中指定專案的編號。
number 與指定專案相關聯的數。
說明itemdata 屬性是乙個長整型數的陣列，它有與控制項的 list 屬性相同數目的專案。可以用與每一項相關的數來標識它們。例如，在 listbox 控制項中，可以用雇員身份號來標識每乙個雇員的名字。
填 listbox 時，也要將雇員號填入 itemdata 相應的元素中。
itemdata 常常用做與 listbox 控制項中專案相關的資料結構陣列的索引。
注意 利用 additem 方法在列表中插入乙個專案時，在 itemdata 陣列中也會自動插入一項。但是其值不會重新初始化為 0；它保持列表在插入專案之前該位置的值。用 itemdata 屬性時，一定要在向列表中加入新項時，設定它的值。
itemdata 屬性示例
這個例子用員工的名字填充 listbox 控制項，並用員工的代號填充 itemdata 屬性陣列，並用 newindex 屬性使代號與排序列表同步。當使用者做選擇時，label 控制項顯示選項的名字和代號。要試用此例，r把**貼上到包含 listbox 和 label 的窗體的宣告部分。
設定 listbox 的 sorted 屬性為 true，然後按 f5 鍵，並單擊 listbox。
private sub form_load ()
' 以排序順序將相應的專案填充t list1 和 itemdata 陣列.
list1.additem "judy phelps"
list1.itemdata(list1.newindex) = 42310
list1.additem "chien lieu"
list1.itemdata(list1.newindex) = 52855
list1.additem "mauro sorrento"
list1.itemdata(list1.newindex) = 64932
list1.additem "cynthia bennet"
list1.itemdata(list1.newindex) = 39227
end subprivate sub list1_click ()
' 追加員工數字和員工名字.
msg = list1.itemdata(list1.listindex) & " "
msg = msg & list1.list(list1.listindex)
label1.caption = msg
end sub
應用於：
combobox 控制項
listbox 控制項
2樓：匿名使用者
新建乙個陣列，一一對應
vb 如何將 listbox 中每個item項中的數字相加，並輸出到乙個label中？
3樓：go劍雨
想想想想再想想。。。
vb程式設計如何將listbox中選中的多個選項新增至文字輸入框？ 50
vb裡已經繫結資料庫的listbox1中的專案如何新增到listbox2中，並且listbox2也要繫結資料庫
4樓：匿名使用者
提問不是很清楚，能具體說明一下嗎
只是新增過去的話，遍歷一下就可以了吧，繫結資料庫說的不是很明白，你到底要咋樣啊
vb listbox 詳解
VB如何設計單擊網頁，VB 如何單擊網頁中的按鈕
我的思路是 先手動開啟該網頁 該網頁不能關閉 不能最小化 不能移動。呵呵呵 這方法很笨 但實用。用vb獲取按鈕的座標。用計時器 每隔一定時間點選該座標一次。應該有更先進的方法 我也想學習學習。vb 如何單擊網頁中的按鈕 單擊 click 屬於事件。所謂事件 event 是由vb預先設定好的 能夠被物...
vb模組中的過程如何呼叫，VB 模組中的過程如何呼叫？
舉乙個比較直觀的例子 你在模組1中寫好以後函式 public function 直角三角形斜邊 byval 直角邊1 as double,byval 直角邊2 as double 直角三角形斜邊 sqr 直角邊1 2 直角邊2 2 end function 在你要呼叫函式的地方寫上 dim 斜邊 a...
VB如何將程式合法設為開機啟動，VB中如何讓程式開機啟動？
在 啟動 選單中新增期望執行的程式。還有其他方法，如在登錄檔中新增可執行程式路徑名，比較複雜。好幾種吧 寫登錄檔 寫win.ini 或者copy快捷方式到開始選單的 啟動 資料夾下面。vb中如何讓程式開機啟動？啟動程式如下所示。1 一種就是在安裝軟體時往登錄檔裡新增，一種簡單粗暴寫個快捷方式丟到啟動...