想用下面这个非常简单的程序试验一下'将控件数组作为参数传递给子过程'
我先用'复制->粘贴'的方法在窗体上建了一个image类型的控件数组box(0),box(1)。然后添加下面代码：
窗体：
Dim i As Integer

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyD Then
Call inline(i, box())
End If
End Sub

模块：
Public Sub inline(i As Integer, box() As Image)
For i = 0 To 1
box(i).Top = 600
Next i
End Sub

预期是：当按下键盘D键时将box(0)和box(1)的top值都变成600。

但是运行时出错了，说是"编译错误：类型不匹配：缺少数组或用户定义类型".
请问这是什么原因？如何更正？

[此贴子已经被作者于2006-7-19 3:02:17编辑过]

刚才将代码修改成下面样子：
窗体：
Dim i As Integer

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyD Then
Call inline(i, box)
End If
End Sub
模块：
Public Sub inline(i As Integer, box)
For i = 0 To 1
box(i).Top = 600
Next i
End Sub

虽然可以正常运行了，但是又出现一个问题：参数box由于没有被指定类型而被默认成了Variant型。于是在编写子过程时系统就不会对box进行类型检查了，很不方便啊。所以还是希望有其它更好的解决方法。

[此贴子已经被作者于2006-7-19 4:51:46编辑过]

试试引用看行不？用 ByRef。我还没试过整个对象数组传递，单个对象的话用 ByRef 引用即可。

有個問題要說明一下, 即使你在設計時用了 控件數組
Image 類型的 box(0), box(1).......
但在運行時對於 box 並不是 Image 類型, 而是 Object 類型,
(可以通過 Debug.Print TypeName(box) 得知)

將 box() As Image 改爲 box As Object
....
...
沒有了強類型檢查...