VB listbox中selected问题

PrivateSubcmdDelete_Click()DimiAsIntegerFori=0TolstSelect.ListCount-1IflstSelect.Sele... Private Sub cmdDelete_Click()
Dim i As Integer
For i = 0 To lstSelect.ListCount - 1
If lstSelect.Selected(i) = True Then
lstSelect.RemoveItem (i)
'Form2.List1.RemoveItem (i)
End If
Next i
End Sub

为什么会出错啊?
说是If lstSelect.Selected(i) = True Then
index有错
展开
 我来答
tianqing20wen

推荐于2016-03-04 · TA获得超过2.4万个赞
知道大有可为答主
回答量:8226
采纳率:88%
帮助的人:4993万
展开全部
删除一个选项后 index就发生了改变
Private Sub cmdDelete_Click()
Dim i As Integer
For i = lstSelect.ListCount - 1 To 0 Step -1
If lstSelect.Selected(i) = True Then
lstSelect.RemoveItem (i)
'Form2.List1.RemoveItem (i)
End If
Next i
End Sub
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
yangdeqing88
2010-06-06 · TA获得超过173个赞
知道答主
回答量:109
采纳率:100%
帮助的人:67.2万
展开全部
改为:
Private Sub cmdDelete_Click()
Dim i As Integer
For i = 0 To lstSelect.ListCount - 1
If lstSelect.Selected(i) = True Then
lstSelect.RemoveItem i
Form2.List1.RemoveItem i
End If
Next i
End Sub
你试试
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式