关于list的小问题
1共有3个控件：
command(cmd1) list(list1) list(list2)
list1里面有很多内容。
现在要通过cmd1把list1的所有内容转移到list2，并且删除list1所有内容
代码1：
=====================================
Private Sub cmd1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
List1.ListIndex = i
List2.AddItem (List1.Text)
List1.RemoveItem (i)
Next i
End Sub
====================================
结果：实时错误380 无效属性值
代码2：
===================================
Private Sub cmd1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
List1.ListIndex = i
List2.AddItem (List1.Text)
Next i
list1.clear
End Sub
===================================
结果：正常！
请问为什么会出现这种情况？？
[解决办法]
Private Sub cmd1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
List1.ListIndex = i
List2.AddItem (List1.Text)
List1.RemoveItem (i)
Next i
End Sub
修改为
Private Sub cmd1_Click()
Dim i As Integer
For i =List1.ListCount - 1 To 0 step -1
List1.ListIndex = i
List2.AddItem (List1.Text)
List1.RemoveItem (i)
Next i
End Sub
应该就没问题了.
LIST是自动维护INDEX的,总是从0开始吧,
