登陆窗口: (一个文本框 Text1 一个按扭 Command1)public pName as stringprivate sub Command1_Click() pName=Text1.text End sub要显示的窗口(一个文本框 Text1 用于显示ID)private sub Form_Load() Text1.Text=登陆窗口.pName end sub
'第一个窗体代码 Option Explicit Public strName As StringPrivate Sub Command1_Click() strName = Text1.Text Form2.Show End Sub'第二个窗体代码 Option ExplicitPrivate Sub Form_Load() Text1.Text = form1.strName End Sub我这里传递过来了,不过我strName没有放在模块里
form_load事件发生的时候登录窗口还没显示出来呢
pName=Text1.text
End sub要显示的窗口(一个文本框 Text1 用于显示ID)private sub Form_Load()
Text1.Text=登陆窗口.pName
end sub
登录窗口 formlog
显示窗口 form1那在登录窗口登录完成之后加一行 form1.text1.text=name 就行了
public name as string
name = text1.text
显示窗体:
text1.text = frm登陆.name
Text1.Text=form1.pName
我的登录窗口名字是form1
你还是在登录窗口里调用显示窗口里的text1显示吧不答了,关注
'第一个窗体代码
Option Explicit
Public strName As StringPrivate Sub Command1_Click()
strName = Text1.Text
Form2.Show
End Sub'第二个窗体代码
Option ExplicitPrivate Sub Form_Load()
Text1.Text = form1.strName
End Sub我这里传递过来了,不过我strName没有放在模块里
第二个窗体 一个textbox