Question

vb中listbox复选框选择多个时如何只获取最后选择的内容？但其他也必须是勾选状态

比如说，一共勾选了三个，但是我只想获取最后一个选择的那一项的值，这怎么实现？

Answer 1

Private Sub Command1_Click()
For i = List1.ListCount - 1 To 0 Step -1
if i=List1.ListCount - 1 and List1.Selected(i) = True then
strLIst=List1.Selected(i).value;
end if
If List1.Selected(i) = True and i<>List1.ListCount - 1 Then
Exit For
end if
Next
End Sub

Answer 2

Private Sub Command1_Click()
For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) = True Then MsgBox List1.List(i): Exit For
Next
End Sub