vb 选择一个对象 跳出相应的值

来源：百度知道 编辑：UC知道 时间：2024/06/07 04:36:39
现在在listbox里选中一个对象到另外一个listbox，每个对象都有相应的值，请问 怎么将这对象相应的值输入进代码里，然后按计算跳出来的是相应的数值？？？？

listbox 有itemdata属性，listbox里的每一个选项都可以对应一个itemdata数值。比如，有两个listbox，list1放原始数据，list2接收选择的值：

Private Sub Form_Load()
Dim i As Long
For i = 0 To 9
List1.AddItem "数值" & i
List1.ItemData(List1.NewIndex) = i
Next
End Sub

Private Sub List1_Click()
List2.AddItem List1.ItemData(List1.ListIndex)
End Sub

其实只要用到DIRECTORY类，就可以了，你的这个问题可以直接用GETDIRECTORIESAK和 GETFILES做。然后把listbox2.items.add()做就可以了。