今天在做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控件，如有哪里不足，请多多指出。谢谢。