Question

VB的LISTBOX删除问题

现在有LIST1 然后有个删除按钮 我写的CLICK代码是 List1.RemoveItem List1.ListIndex 这样的话如果鼠标选中LIST1里面某一项，删除是正常的，如果没选择点删除就报错了，我想写个检测有没有没选中的，没有的话提示一下，但是不知道检测怎么写！望赐教！

Answer 1

没有选中的话List1.ListIndex 的值就为-1 可以这样写 If List1.ListIndex >= 0 Then List1.RemoveItem List1.ListIndex End If

Answer 2

If List1.ListIndex > -1 Then List1.RemoveItem List1.ListIndex List1.ListIndex = List1.ListCount - 1 End If