一个比较简单的问题

Question

我想做一个过程，我把这个过程放在模块里，该过程的功能是处理窗体的某种控件的，就譬如现在有一个过程AAA，
Public Sub AAA()
label1.text="4444"
End Sub
但是我在窗体调用这个过程的时候报错，实时错误：‘424’；
需要对象请问我怎样才能做到我需要的效果啊？？？？
谢谢！！！！

Answer 1

Public Sub AAA()
form1.label1.text="4444"'像这样要把窗体名也写上呀
End Sub

Answer 2

在模块里不能直接使用控件,要对象引用,修改为:
'模块
Public Sub AAA(aa As Control)
aa.Text = "4444"
End Sub
'窗体
Private Sub Command1_Click()
Call AAA(Text1)
End Sub

Answer 3

再说了。。
label1.text="4444"   ’label1没有text属性吧。。

Answer 4

Public Sub AAA(formname As Object)
Dim tempOb As Object
For Each tempOb In formname.Controls
    Debug.Print tempOb.Text = "4444"
Next
End Sub

Answer 5

label 控件没有TEXT 属性可以用label1.caption就好了

Answer 6

过程中传递控件参数
就像楼上有人说的这样
Public Sub AAA(aa As Control)
aa.Text = "4444"
End Sub
在form里调用时  传递form已有的控件名

Answer 7

Public Sub aaa(frm As Form)
Dim ctl As Control
For Each ctl In frm.Controls
 If TypeOf ctl Is Label Then
    ctl.Caption = "aaaa"
    Exit Sub
 End If
Next ctl
End Sub
这个看行不

Answer 8

如果我想要把Form2的text1的text的值传回到Form1怎样传啊？
Form2是通过Form1 打开的（Form2.show 1）

Answer 9

补充：传回到Form1的Label1.caption里

Answer 10

label 控件有TEXT 属性吗？应该是caption吧