作者Guestion (Question)
看板Visual_Basic
标题Re: [VB6 ] ListBox的删除问题
时间Mon Feb 6 21:37:07 2006
※ 引述《fumizuki (蒙面加菲狮)》之铭言：
: ※ 引述《Guestion (Question)》之铭言：
: : 如果ListBox的MultiSelect为单选时,要删除选取的资料为:
: : If List1.ListIndex >=0 Then
: : List1.RemoveItem List1.ListIndex
: : End If
: : 但如果MultiSelect为多选时,以上的程式好像会出错
: : 请问该如何修改呢?
: If List1.MultiSelect = 0 Then '单选
: If List1.ListIndex >= 0 Then List1.RemoveItem List1.ListIndex
: Else '复选
: For i = List1.ListCount - 1 To 0 Step - 1
: If List1.Selected(i) Then List1.RemoveItem i
: Next
: End If
抱歉还是有点不太明白...
如果i= ListCount-1 to 0 的话
这样listindex会随着listcount改变
但如果是i= 0 to ListCount-1
listindex还会改变吗? 或者会影响的不是这部分?
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.113.27.57
1F：推 fumizuki:请你使用F8 逐行执行 观查变数及list内容的变化 02/07 08:44
2F：推 Guestion:终於懂了...感谢! 02/07 12:36