vb中listbox的小问题

来源：百度知道 编辑：UC知道 时间：2024/06/17 23:12:18
一共有3个listboxes， 第一个listbox里有3个训练项目（soccer，baseball,swim),价钱分别为100，200，300； 第二个listbox里有3个地点，分别是usa, china,canda，价钱分别是100，200，300。分别在第一个选了项目和第二个listbox里选了地点之后，算出价钱，出现在第三个listbox中。
请问如何实现这个问题？我就是不知道怎么选择listbox中的property并且使用他所带有的属性（这里是指价钱）。
真心谢谢大家！

'在窗体上加入控件list1,list2,list3,command1，然后复制下面代码，运行，选择相应项目，按command1，即可得到结果。

Option Explicit

Private Sub Command1_Click()
List3.AddItem List1.ItemData(List1.ListIndex) + List2.ItemData(List2.ListIndex)
End Sub

Private Sub Form_Load()
With List1
.AddItem "soccer": .ItemData(.NewIndex) = 100
.AddItem "baseball": .ItemData(.NewIndex) = 200
.AddItem "swim": .ItemData(.NewIndex) = 300
End With
With List2
.AddItem "usa": .ItemData(.NewIndex) = 100
.AddItem "china": .ItemData(.NewIndex) = 200
.AddItem "canda": .ItemData(.NewIndex) = 300
End With
End Sub

建议你用COMBOX,用LISTBOX比较麻烦,给你看一下LISTBOX是如何取得选中的项
For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
变量 = List1.Selected(i)
Exit For
End If
Next i

用COMBOX的话直接COMBOX1.TEXT + COMBOX2.TEXT就OK了

你可以用 Listbox的 text属性填写 训练项目或者地点