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
第1个回答 2012-02-10
如果想要直接传递窗体上的控件数组，你的过程参数必须是集合形式：
call other（Frame1）
Sub other(My_frame As Collection)
My_frame(0).BackColor = vbGreen
My_frame(1).BackColor = vbRed
End Sub
call other（Frame1）
Sub other(My_frame As Collection)
My_frame(0).BackColor = vbGreen
My_frame(1).BackColor = vbRed
End Sub
第2个回答 推荐于2018-04-11
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本回答被提问者和网友采纳
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本回答被提问者和网友采纳
