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

2024-11-15 14:49:28

推荐回答（1个）

回答（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