解决方案 »

  1.   

    这有很多种方法,来一简单的:在模块里
    public t as string在窗体里:(只要text1内容发生变化,全局t同时修改)
    Private Sub Text1_Change()
        t = Text1.Text
    End Sub.....
      

  2.   

    如果没有任何转换,直接访问 Form1.Text1.Text 不就可以了。
      

  3.   

    可以在模块全局定义一个变量
    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
      

  4.   

    在模块定义
    public t as TextBox在窗体里赋值
    Private Sub Form_Load()
       SET  t = Text1
    End Sub然后就可以全局使用 t,  对 t 的操作就是对Text1操作
    比如:   myStr = t.Text