在一个form中输入用户名,在另一form中调用怎样才能调用得到输入的这个用户名?

Question

我知道将第一个form中将第一个form Hide就可以实现,但是请教高手其他方法,这个我想很多人都有在遇到过，因为我们经常看到在login页面有输入，输入完成为在另外的form里有看到用户名．

Answer 1

'form1:Public UserNanme As StringPrivate Sub Command1_Click()
    Me.UserNanme = "FFF"
    Me.Hide
    Form2.Show
End Sub'form2:Private Sub Command1_Click()
    MsgBox Form1.UserNanme
End Sub

Answer 2

'form1:
Private Sub Command1_Click()
Form2.Show
End Sub
'form2:Private Sub Command1_Click()
Unload Me
End SubPrivate Sub Form_Load()
Form2.Text2.Text = Form1.Text1.Text
End Sub

Answer 3

to  Zezese(蓝酷云)
这样的全局变量是要在模块中设置吧，你在form1中设置的全局变量form2中也没有效果吧

Answer 4

TO：KissApple(夜凉如水)
Zezese(蓝酷云)的写法没有问题，加上了一个Form1.UserNanme，所以是正确的

Answer 5

或用属性实现：
'form1:
Dim TestValue As String
Private Sub Form_Load()
TestValue = "这是测试代码"
Me.Hide
Form2.Show
End SubPublic Property Get GetTestValue()
GetTestValue = TestValue
End Property
'form2:Private Sub Form_Load()
MsgBox Form1.GetTestValue
End Sub

Answer 6

学到东西了。 呵呵，以前从来都没有在Form中用过 Property Get 和 Property Let

Answer 7

用注册表:   保存键值:
SaveSetting "MeibaoPersonnel ", "Administrators", "PassWord1", "text1.text"   提取键值:
GetSetting("MeibaoPersonnel ", "Administrators", "PassWord1", "")