vb listbox控件如何獲取選定項？

事件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