Question

vb制作的登陆器打开时显示form1，登陆后自动关闭form1进入form2怎么弄？

我登陆按钮代码是这样的：
Dim a As String
a = Text1.Text
b = Text2.Text
If a = "13711026232" And b = "719068" Then
MsgBox "您已经成功登陆!"
Elsg
msgbox "您的用户名或密码错误!"
End If
怎么显示FORM2啊?
给我发个代码,form2.show的,那个试过不行也,不知道放在代码的哪里..求救!!!

Answer 1

Dim a As String
a = Trim(Text1.Text) '其实错并不在form2.Show 关键是在这里不去掉两端
b = Trim(Text2.Text) '空格的话你那if 里的面的条件是满足不了的
If a = "13711026232" And b = "719068" Then
MsgBox "您已经成功登陆!"
form2.show
form1.hide
Elsg
msgbox "您的用户名或密码错误!"
End

Answer 2

你创建Form2.frm了吗？
如果没创建，form2.show当然不好使。

Answer 3

Dim a As String
a = Text1.Text
b = Text2.Text
If a = "13711026232" And b = "719068" Then
MsgBox "您已经成功登陆!"
form2.show
form1.hide
Elsg
msgbox "您的用户名或密码错误!"
End If

Answer 4

请注意，你的代码中有一个错误: else写成 Elsg了!!!!!
楼上的方法是正解
Dim a As String
a = Text1.Text
b = Text2.Text
If a = "13711026232" And b = "719068" Then
MsgBox "您已经成功登陆!"
form2.show
form1.hide
Else
msgbox "您的用户名或密码错误!"
End If

Answer 5

Dim a As String
a = Text1.Text
b = Text2.Text
If a = "13711026232" And b = "719068" Then
MsgBox "您已经成功登陆!"
form2.show
unload me
Elsg
msgbox "您的用户名或密码错误!"
End If

要注意 unload 不能写在 load或者show其它窗口的前面