Question

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

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

Answer 1

窗体：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

Answer 2

dim s as string
s = w.text '把指定的文本框赋值给变量s，所以w应该是你自己的文本框的名字
msgbox(s) '弹窗并显示变量s的文本如上代码比如加入一个按钮的点击事件之中，修改w为你自己的文本框的名字即可。