今天在做VB项目的时候，使用了ListBox控件来获取一些列表项，用了才发现没有ListView好用，ListView有Items（SelectItem）可以定位到当前的选中项，而ListBox没有；ListView有Tag可以设定选中项的标示，ListBox没有。上网也找不到原因，知道去阅读MSDN和自己测试。

之后终于找到了问题的关键。

事件1：添加ListBox项和对应项的标识

Dim List1 As new ListBox

List1.addItem,星期一

List1.ItemData(List1.newIndex) = "1"

List1.addItem,星期二

List1.ItemData(List1.newIndex) = "2"

List1.addItem,星期三

List1.ItemData(List1.newIndex) = "3"

List1.addItem,星期四

List1.ItemData(List1.newIndex) = "4"

Private Sub List1_Click()

If List1.ListIndex = -1 Then

Exit Sub '没有选中任何项，退出方法

End If

Debug.Print List1.ItemData(List1.ListIndex) '打印选中的List1的标识。。可能是"1" "2" "3" "4"

Debug.PrintList1.Text '打印选中的List1的名称。。可能是星期一到星期四

End Sub

第一次写文章，因为用的上10寸的上网本，写得很简单，如果看不懂请联系我。

刚用ListBox控件，如有哪里不足，请多多指出。谢谢。