Question

VB中可通过列表框的什么来取得列表框中被选中的选项？

Answer 1

'在单选状态下
Private Sub Form_Click()
If List1.ListIndex = -1 Then
Print "没有选中"
Else
Print "选中的序号是 " & List1.ListIndex
Print "选中的内容是 " & List1.Text
End If
End Sub

'在多选状态下
Private Sub Form_Click()
If List1.SelCount = 0 Then Print "没有选中": Exit Sub
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
Print "选中的序号是 " & i
Print "选中的内容是 " & List1.List(i)
End If
Next
End Sub

Answer 2

格式：列表框名.selected(索引值)=true/false

如:如果列表框list1中第1个选项被选中时:
list1.selected(0)=true
注：列表框中的索引值是从0开始的

Answer 3

Selected(Index)属性