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有错 展开
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有错 展开
2个回答
展开全部
删除一个选项后 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
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
本回答被提问者采纳
已赞过
已踩过<
你对这个回答的评价是？
网易云信
2023-12-06 广告
UIkit是一套轻量级、模块化且易于使用的开源UI组件库，由YOOtheme团队开发。它提供了丰富的界面元素，包括按钮、表单、表格、对话框、滑块、下拉菜单、选项卡等等，适用于各种类型的网站和应用程序。UIkit还支持响应式设计，可以根据不同...
点击进入详情页
本回答由网易云信提供
展开全部
改为：
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
你试试
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
你试试
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
