Question

请教VB问题. 如何传递控件数组到模块中?

我窗体form1中有四个控件数组,分别是cmdGuide(0),cmdGuide(1),cmdGuide(2),cmdGuide(3).
我在模块modCust中传递这四个数组控件:
Public Sub guide1(guide() As CommandButton)
guide(0).Enabled = False
guide(1).Enabled = False
guide(2).Enabled = False
guide(3).Enabled = False
End Sub
请问在 form1中应怎么调用模块中的函数?
我的是modCust.guide1 cmdGuide,可怎么不对呢??

Answer 1

首先你的概念不对，是一个控件数组cmdGuide，4个index元素0、1、2、3。

在模块中应该这样声明：
Public Sub guide1(myform As Object) '把窗口变量声明为一个对象
for i = 0 to 3
myform.cmdGuide(i).Enabled = False
next
End Sub

然后在form1里这样调用：
modCust.guide1 form1 '把form1当对象传过去。