VB有一个问题，如何传递窗体对象？

来源：百度知道 编辑：UC知道 时间：2024/04/28 01:20:34
有一个问题，如何传递窗体对象？
有个几窗体，和1个模块，窗体要传递窗体里面的一个TEXT的值给模块，模块接受后处理返回
这个传递该怎么写？
我记的以前好象是
Public Sub 处理(abc As Object)
abc.text1.text=""'处理过程
end sub

调用 的时候
call 处理(form1)
为什么现在不行了？
提示需要对象
我要的不是FORM自己！是FORM里面的控制的对象！！
如form1.text1.text
你那样是只能调用form1自身的属性

VB 6.0 控件作为函数参数

Public Sub Fun(Form As Form, c As control)
If TypeOf c Is TextBox Then'判断c 是不是文本框 TextBox
Dim a As String
a = c.Text
Form.Print a
End If
End Sub

Private Sub Command1_Click()
Fun Me, Text1

End Sub

Public Sub 处理(abc As form)
abc.text1.text=""'处理过程
end sub

可以这样来
public sub dealform(byref frm as form)
frm.caption="asdfasd"
end sub

Public Sub Fun(Form As Form, c As control)
If TypeOf c Is TextBox Then'判断c 是不是文本框 TextBox
Dim a As String
a = c.Text
Form.Print a
End If
End Sub