'在单选状态下
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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024