Re: [VB6 ] ListBox的刪除問題
※ 引述《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
推
02/06 17:58, , 1F
02/06 17:58, 1F
推
02/06 18:03, , 2F
02/06 18:03, 2F
→
02/06 18:04, , 3F
02/06 18:04, 3F
→
02/06 18:07, , 4F
02/06 18:07, 4F
※ 編輯: fumizuki 來自: 210.58.156.43 (02/06 19:24)
推
02/06 19:24, , 5F
02/06 19:24, 5F
推
02/06 20:10, , 6F
02/06 20:10, 6F
推
02/06 20:24, , 7F
02/06 20:24, 7F
→
02/06 20:24, , 8F
02/06 20:24, 8F
推
02/06 20:30, , 9F
02/06 20:30, 9F
討論串 (同標題文章)
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章