Question

vb listbox的问题 解决删除list1.listindex出错

当listbox中没有被选中的项目时，执行List1.RemoveItem List1.ListIndex会出错，并且直接关闭了程序，导致数据丢失，我希望通过msgbox来提示用户，并且要返回到操作List1.RemoveItem之前的程序状态，这样可以继续进行删除操作。
我的程序是：
Private Sub Command1_Click()
If List1.Selected(list1.listindex) Then
List1.RemoveItem List1.ListIndex
else if “怎么编辑没选中listbox中的任何项目”then
msgbox("请选中要删除的项目")
end if
end sub
如何在修改完list1.listindex的内容后,将list1的选中状态去掉，因为我想继续修改list2的内容，否则list2的修改会受到影响。我的程序是：
If Option1.Value = True Then
If List1.SelCount = 0 Then MsgBox "请选中要删除的项目": GoTo 200
List1.List(List1.ListIndex) = Text1.Text

---------这里要写入去掉list1的选中状态程序-----
ElseIf Option2.Value = True Then
If List2.SelCount = 0 Then MsgBox "请选中要删除的项目": GoTo 200
List2.List(List1.ListIndex) = Text1.Text

非常谢谢您了！！

Answer 1

Private Sub Command1_Click()
If List1.ListIndex > -1 Then
List1.RemoveItem List1.ListIndex
Else
MsgBox ("请选中要删除的项目")
End If
End Sub

'问题补充：
If Option1.Value = True Then
If List1.SelCount = 0 Then MsgBox "请选中要删除的项目": GoTo 200
List1.List(List1.ListIndex) = Text1.Text

List1.ListIndex = -1 '将list1的选中状态去掉
ElseIf Option2.Value = True Then
If List2.SelCount = 0 Then MsgBox "请选中要删除的项目": GoTo 200
List2.List(List1.ListIndex) = Text1.Text

Answer 2

If List1.SelCount = 0 Then Msgbox "您没选中任何项目"