可以使用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 Sub
这个例子用员工的名字填充 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 Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货