Question

VB中LBOUND 与 UBOUND的问题

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
For j = LBound(splitimage) To UBound(splitimage)
If X > splitimage(j).Left And X < splitimage(j).Left + splitimage(j).Width And Y > splitimage(j).Top And Y < splitimage(j).Height Then

splitimage(j).Top = splitimage(j).Top - 20
End If
Next j
End Sub
其中 splitimage是个PIVTUREBOX 调试的时候提示我 LBOUND缺少数组 为什么 求高手解答
splitimage（）之前已经加载过

Answer 1

LBound 属性，返回控件数组中的控件的最低有序值。

UBound 属性，返回控件数组array中控件的最高有序值。

LBound、UBound 属性示例：

该例子为控件数组打印以上提及的两个属性的值。在一个窗体上放一个 OptionButton 控件，并设置其 Index 属性为
0 （用来创建一个控件数组）。要试用此例，可以将该代码粘贴到一个窗体的声明部分中，然后按下 F5 键并单击此窗体。

Option Explicit
    Dim i As Long
    
Private Sub Form_Paint()
   Static FlagFormPainted As Integer
   If FlagFormPainted <> True Then '当窗体进行首次绘画时。
      For i = 1 To 3
         Load Option1(i)   '在数组中加入三个选项按钮。
         Option1(i).Top = Option1(i - 1).Top + 350
         Option1(i).Visible = True
      Next i
      For i = 0 To 3    '在选项按钮上放置标题。
         Option1(i).Caption = "Option #" & CStr(i)
      Next i
      Option1(0).Value = True   '选中第一个选项按钮。
      FlagFormPainted = True   '窗体已完成绘画。
   End If
End Sub

Private Sub Form_Click()
    Print "Control array's Count property is " & Option1().Count
    Print "Control array's LBound property is " & Option1().LBound
    Print "Control array's UBound property is " & Option1().UBound
End Sub

Answer 2

既然提示是缺少数组，那就可能跟数组在关系。你确定已经加载了多个splitimage图片控件，并且名称没有写错？

另外，建议使用调试模式，运行到出错时，添加监视splitimage这个对象，看它是不是数组，包含多少个数目。

Answer 3

splitimage.LBound
splitimage.UBound
你这样用试试

=================
也许中间有的下标不存在
例如有splitimage(0), (1), (3), (5)
这样LBound To Ubound是0 - 5 ，但实际上2和4都不存在