如何在vb的模块中调用窗体中文本框的值。

来源：百度知道 编辑：UC知道 时间：2024/09/20 09:05:03
如何在vb的模块中调用窗体中文本框的值。
例如：在同一个工程里，想在模块中对输入文本框的数值进行判断，然后传给模块中的函数。 而我遇到的问题是，模块好像不识别文本框的值，总是在那处提示错误。是不是要用到对象限定符呢？具体又是怎么定义的呢？还是用property set语句呢？具体是怎样定义呢？ 或是用到其他的什么语句。
请高人指点。

窗体：form1
模块：module1
Form1中创建文本输入text1

Form1内容如下：
Private Sub Command1_Click()
MsgBox "文本内容是" & Tx
MsgBox "窗体标题是" & Tc
MsgBox "窗体大小是" & Ts
End Sub

模块内容如下：

Function Tx() As String
With Form1
Tx = .Text1.Text
End With
End Function

Function Tc() As String
With Form1
Tc = .Caption
End With
End Function

Function Ts() As String
With Form1
Ts = .Width & "-" & .Height
End With
End Function