Question

VB中如何对listbox的每个列表项绑定一个数值？

Answer 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 控件

Answer 2

新建一个数组，一一对应