vb标准模块里的sub过程怎么不能用我的控件数组呢?

来源:百度知道 编辑:UC知道 时间:2024/05/15 18:47:20
这是我在一个标准模块里写的一个sub过程
Public Sub allred()
Dim x As Integer
For x = 0 To 3
shEr(x).FillColor = vbRed
shWr(x).FillColor = vbRed
shNr(x).FillColor = vbRed
shSr(x).FillColor = vbRed
shPplns(x).FillColor = vbRed
shPplwe(x).FillColor = vbRed
Next x
End Sub

其中,那些shNr、shSr之类的是我在启动窗体里的一些控件数组,当我运行程序,到这一部分的时候,告诉我shEr等没有定义,我不知道怎么解决这个问题,请问有知道的吗?

假如shNr,shSr是在窗体Form1里的
那就要改成
with Form1
.shEr(x).FillColor = vbRed
.shWr(x).FillColor = vbRed
.shNr(x).FillColor = vbRed
.shSr(x).FillColor = vbRed
.shPplns(x).FillColor = vbRed
.shPplwe(x).FillColor = vbRed
end with

注意每句的前面是有个点的~~
还有要确定窗体Form1已经加载了~~