'窗体1的代码,加一个commandbutton Private Sub Command1_Click() cz = "这是利用模块级变量CZ来实现窗体之间传值的方法" Form2.Show End SubPrivate Sub Form_Load() Command1.Caption = "点我试一下" Form2.Command1.Caption = "点击" End Sub '窗体2的代码,加入一个commandbutton Private Sub Command1_Click() Label1.Caption = cz End Sub '添加一个模块,代码如下: Public cz As String
'窗体1的代码,加一个commandbutton,在窗体2中加入一个按钮和一个标签框 Private Sub Command1_Click() cz = "这是利用模块级变量CZ来实现窗体之间传值的方法" Form2.Label1.Caption = cz Form2.Show End SubPrivate Sub Form_Load() Command1.Caption = "点我试一下" Form2.Command1.Caption = "点击" End Sub
With Form1.Text1
.Text = me.Text1.TextEnd with
With Form1.Text1
.Text = me.Text1.TextEnd with
窗体1 叫form1
窗体2 叫form2
窗体2有个值a要放到窗体1的text1.text里面
应该在窗体2中这么写form1.text1.text=a
(2)打开form的时候传openarg
(3)取对方form的控件里的值等等
Private Sub Command1_Click()
cz = "这是利用模块级变量CZ来实现窗体之间传值的方法"
Form2.Show
End SubPrivate Sub Form_Load()
Command1.Caption = "点我试一下"
Form2.Command1.Caption = "点击"
End Sub
'窗体2的代码,加入一个commandbutton
Private Sub Command1_Click()
Label1.Caption = cz
End Sub
'添加一个模块,代码如下:
Public cz As String
Private Sub Command1_Click()
cz = "这是利用模块级变量CZ来实现窗体之间传值的方法"
Form2.Label1.Caption = cz
Form2.Show
End SubPrivate Sub Form_Load()
Command1.Caption = "点我试一下"
Form2.Command1.Caption = "点击"
End Sub
我一直这样用的,还有更好的方法吗?学习中