Question

vb 中listbox 剪切之后如何重新定义i

Private Sub Command1_Click()
For i = 0 To List1.ListCount - 1
List2.AddItem List1.List(i)
Next i
List1.Clear
End Sub
Private Sub Command2_Click()
For i = 0 To (List1.ListCount - 1)
If List1.Selected(i) = True Then
List2.AddItem List1.List(i)
List1.RemoveItem (i)
End If
Next i
End Sub
第一部分是将列表框1中项目全加入2中，没有问题
第二部分List1.RemoveItem (i)之后i变化了，程序不对了，怎么解决啊，谢谢~~

Answer 1

在List1.RemoveItem (i)后面添加i=i-1；循环次数会在list1减少后同时减少，不必担心。