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