关于VB的ListBox控件选定项的获取

 今天在做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.Print List1.Text      '打印选中的List1的名称。。可能是星期一到星期四

End Sub

 

 

---

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

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