Question

vb listbox控件如何获取选定项？

Answer 1

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

Answer 2

list1.text