移除list指定项前面所有项,要怎么写?我这个代码老说"实时错误5 无效的过程调用或参数"
本帖最后由 ehjpq881166 于 2013-08-28 15:20:32 编辑 下面的代码,目标是要把9(包括9本身)以前所有项目清空,清空的地方不要占位置.也就是说10要不断往前移,之道移到第一位.谢谢!
报错: 无效的过程调用或参数:

Private Sub Command1_Click()
j = 10
For q = j - 1 To 0 Step -1
List1.RemoveItem (j - 1)
Next q '把之前已经的 清空
End Sub

Private Sub Form_Load()
List1.AddItem "1"
List1.AddItem "2"
List1.AddItem "3"
List1.AddItem "4"
List1.AddItem "5"
List1.AddItem "6"
List1.AddItem "7"
List1.AddItem "8"
List1.AddItem "9"
List1.AddItem "10"

End Sub

[解决办法]
Private Sub Command1_Click()
j = 10
For q = j - 1 To 0 Step -1
List1.RemoveItem q ----认真一点就OK了！
Next q '把之前已经的 清空
End Sub

Private Sub Form_Load()
List1.AddItem "1"
List1.AddItem "2"
List1.AddItem "3"
List1.AddItem "4"
List1.AddItem "5"
List1.AddItem "6"
List1.AddItem "7"
List1.AddItem "8"
List1.AddItem "9"
List1.AddItem "10"

End Sub