这有很多种方法,来一简单的:在模块里 public t as string在窗体里:(只要text1内容发生变化,全局t同时修改) Private Sub Text1_Change() t = Text1.Text End Sub.....
如果没有任何转换,直接访问 Form1.Text1.Text 不就可以了。
可以在模块全局定义一个变量 public t as TextBox然后在窗体里将Text1赋给t Private Sub Form_Load() set t = Text1 End Sub然后t就可以在全局用来当Text1用了 dim myStr as string 需要取值就用: myStr = t.Text 需要赋值就用: t.Text = myStr
在模块定义 public t as TextBox在窗体里赋值 Private Sub Form_Load() SET t = Text1 End Sub然后就可以全局使用 t, 对 t 的操作就是对Text1操作 比如: myStr = t.Text
public t as string在窗体里:(只要text1内容发生变化,全局t同时修改)
Private Sub Text1_Change()
t = Text1.Text
End Sub.....
public t as TextBox然后在窗体里将Text1赋给t
Private Sub Form_Load()
set t = Text1
End Sub然后t就可以在全局用来当Text1用了
dim myStr as string
需要取值就用: myStr = t.Text
需要赋值就用: t.Text = myStr
public t as TextBox在窗体里赋值
Private Sub Form_Load()
SET t = Text1
End Sub然后就可以全局使用 t, 对 t 的操作就是对Text1操作
比如: myStr = t.Text