作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [VB6 ] ListBox的删除问题
时间Mon Feb 6 16:45:11 2006
※ 引述《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 ▁▄▇
更多凄凄惨惨的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 210.58.156.43
1F：推 Guestion:豁然开朗!再次感谢板主 02/06 17:58
2F：推 Guestion:有疑问...ListBox的MultiSelect我选1後,执行时一次删两个 02/06 18:03
3F：→ Guestion:选项会出现"不正确的属性阵列索引值" 该如果解决呢 02/06 18:04
4F：→ Guestion:好像MultiSelect选1後,删除选项都会错误 02/06 18:07
※ 编辑: fumizuki 来自: 210.58.156.43 (02/06 19:24)
5F：推 fumizuki:在keyin 程式码的时候忘掉了这个重点了，已更正@@ 02/06 19:24
6F：推 Guestion:可以执行罗 谢谢板主! 不过为什麽i要倒着回圈呢 02/06 20:10
7F：推 fumizuki:因为你把前面的资料删除了 listcount就改变了 02/06 20:24
8F：→ fumizuki:listindex 也会跟着变动 02/06 20:24
9F：推 Guestion:原来是这样...谢谢罗 02/06 20:30