Question

vb 怎么创建控件数组对象

比如说我有一个窗体，窗体上有四个Frame控件，控件在窗体上是以数组方式的，就是Frame1(0) Frame1(1) Frame1(2)……

Private Sub Form_Load()
'在这里调用other过程，所以就存在一个控件数组该怎么样才能把值传给other过 程中的呢？
End Sub
Sub other(My_frame() As frame)
My_frame(0).BackColor = vbGreen
My_frame(1).BackColor = vbRed

End Sub

Answer 1

如果想要直接传递窗体上的控件数组，你的过程参数必须是集合形式：

call other（Frame1）
Sub other(My_frame As Collection)
My_frame(0).BackColor = vbGreen
My_frame(1).BackColor = vbRed

End Sub

Answer 2

Private Sub Form_Load()
Dim a(3) As Frame
For i = 0 To UBound(a)
Set a(i) = Frame1(i)
Next
Call other(a)
End Sub

Sub other(My_frame() As Frame)
My_frame(0).BackColor = vbGreen
My_frame(1).BackColor = vbRed
My_frame(2).BackColor = vbBlue
End Sub