'第一个窗体的代码 Option Explicit Public flag As BooleanPrivate Sub Form_Load() flag = True Form2.Show End Sub '第二个窗体代码 Option ExplicitPrivate Sub Form_Load() If Form1.flag = True Then 'flag确实是true Text1.Text = "1111" End If End Sub '上面的代码值传过来了 '你对照自己的代码看一下
首先要定义成窗体变量,如果该窗体时new 打开的,且该变量是从其他地方赋值的,也要在new后面紧接着赋值。 如 dim frm as new form1 frm.m_str_id="1234" frm.flag =true frm.show 1
msgbox "ok"
end if
'第一个窗体的代码
Option Explicit
Public flag As BooleanPrivate Sub Form_Load()
flag = True
Form2.Show
End Sub
'第二个窗体代码
Option ExplicitPrivate Sub Form_Load()
If Form1.flag = True Then 'flag确实是true
Text1.Text = "1111"
End If
End Sub
'上面的代码值传过来了
'你对照自己的代码看一下
如 dim frm as new form1
frm.m_str_id="1234"
frm.flag =true
frm.show 1