vb编程，无效属性数组索引，为什么，怎么改

Private Sub Command1_Click()
i = 0
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
List2.AddItem List1.List(i)
List1.RemoveItem i
i = i - 1
End If
Print i
Next i
End Sub

举报该问题

其他回答

第1个回答 2012-03-30

For i = 0 To List1.ListCount - 1
改成：
For i = List1.ListCount - 1 To 0 Step -1

去掉 i = i - 1本回答被提问者采纳

相似回答

VB6.0急求答：试图为属性数组索引设置一个超出允许范围的值。把属性数组的索引值改为一个有效的设置值。例如，对 ListBox 而言，List 属性的索引值必须在 0 到 32,766 之间。其所说属性与使用属性不一致。测试代码，除此句需注释外，另有一处漏了End Sub句。Private Sub Form_Activate() Dim i As Integer ...

VB While Not List1.Selected(i)无效数组索引答：List1.Selected(0) = True

VB 提示“实时错误‘381’无效属性数组索引”答：If List3.Selected(i) = True Then Selected后面有i吗？不应该吧？if list3.items(i).selected=true then 是不是这样就ok了？？？

VB实时错误‘340’控件数组元素‘3’不存在答：控件数组元素 'item' 不存在（错误 340）使用无效的索引值引用控件数组的元素。此错误产生的原因及解决方法如下：已存在的控件数组中没有引用的索引值所指定的控件。对存在元素的其中之一，把 Index 属性的设置改为所引用的值。或者使用 Load 语句，向数组中添加一个控件，该控件的索引等于此值，然后再...

VB控件数组索引号在哪里设置答：VB6.0控件数组索引号是在空间的属性窗口的Index 属性处设置。Index 属性（控件数组），返回或设置唯一地标识控件数组中一个控件的编号。仅当控件是控件数组的元素时是有效的。虽然缺省状态下 Visual Basic 分配下一个可用的整数作为控件数组中新的控件的 Index 的值，但也可以改变该分配值并跳过一些数。

vb属性的使用无效答：积，商是控件数组名，下标也要写上。注意，在窗体上复制控件时选择确定的话它会定义成控件数组，如不需要的话要选择否，或把控件属性Index的索引值删除，同时在代码窗口中把事件过程的参数Index As Integer去掉，如下：Private Sub 积_Click()积 = Val(因数1.Text) * Val(因数2.Text)End Sub 除法...

大家正在搜

无效的属性数组索引 labview索引数组怎么用魔球无效控件数组索引数组索引是什么索引数组是什么意思索引数组和关联数组数组中的索引下标从什么开始 labview数组索引 vb怎么让text只能输入数字