list元件問題

Question

如果我選取了好幾個list如圖
圖片參考：http://homelf.kimo.com.tw/u761005/123.bmp
我想要按了按鍵後就會移到另一個list 當然選擇的項目也會消失 要怎樣做呢 我再迴圈時用removeitem 就會錯誤 不知要怎用

For i = 0 To List1(0).ListCount - 1
If List1(0).Selected(j) = True Then
List1(1).AddItem List1(0).List(j)
List1(0).RemoveItem List1(0).List(j)
Else
j = j + 1
End If
Next
月島大大你說的是這樣嗎 可是不能--

Answer 1

List2.AddItem List1.List(I),0
這樣就不會怪怪的

2005-11-28 22:51:12 補充：
For i = List1(0).ListCount - 1 To 0 Step -1
If List1(0).Selected(i) Then
List1(1).AddItem List1(0).List(i) , 0
List1(0).RemoveItem(i)
End If
Next

Answer 2

好像出現錯誤都是在
List1(0).RemoveItem List1(0).List(j)
這個地方ㄟ

Answer 3

最最最簡單的方法
從list1的count-1迴圈到0
如果selected=true就移到list2
然後list1(i).removeitem
這樣就可以了
缺點是list2的資料會倒過來放 怪怪的

另法

做一個迴圈 0~count-1 和一個指標變數
如果指標所指到的selected=false那指標就+1
如果指標所指到的selected=true那就把該listitem給list2 移掉該item 但是指標不+1