Re: [VB6 ] ListBox的刪除問題

[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              ▁▄▇ 
              更多悽悽慘慘的遭遇…………██▆▃                █▅▆▃ˍ▄* 
                                                 ◢           ▂█▄▇▅▂▌. 
我不知道，王～八～蛋～～！           ▂▆███    █▄▃  。fumizuki。Check。

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 210.58.156.43
推 Guestion:豁然開朗!再次感謝板主
推 Guestion:有疑問...ListBox的MultiSelect我選1後,執行時一次刪兩個
→ Guestion:選項會出現"不正確的屬性陣列索引值"  該如果解決呢
→ Guestion:好像MultiSelect選1後,刪除選項都會錯誤
※ 編輯: fumizuki        來自: 210.58.156.43        (02/06 19:24)
推 fumizuki:在keyin 程式碼的時候忘掉了這個重點了，已更正@@
推 Guestion:可以執行囉  謝謝板主!  不過為什麼i要倒著迴圈呢
推 fumizuki:因為你把前面的資料刪除了 listcount就改變了
→ fumizuki:listindex 也會跟著變動
推 Guestion:原來是這樣...謝謝囉