[已解决]如何在登录界面界面成功后直接引用下一个主菜单窗体

15288431649

如何在登录界面界面成功后直接引用下一个主菜单窗体

最佳答案

月排行榜 / 总排行榜

wp8680

2013-4-30 16:04

在“MsgBox "登录成功"”代码语句下面加二句：
UserForm2.Show
   Unload UserForm1

就能在启动下一个窗体并关闭当前窗体。

跳转到最佳答案楼层

hwc2ycy

直接调用窗体的SHOW方法就可以显示窗体。

15288431649

我知道啊，但是之前的窗体是登陆界面，需要登录成功后显示另一窗体

15288431649

你帮我看哈代码吧！

Private Sub CommandButton1_Click()
If TextBox1.Text = "" Then
   MsgBox "用户名不能为空"
   Exit Sub
ElseIf TextBox2.Text = "" Then
   MsgBox "密码不能为空"
   Exit Sub
End If
If TextBox1.Text = "杨晓凤" And TextBox2.Text = "072607" Then
   MsgBox "登录成功"
   Exit Sub
End If
If TextBox1.Text <> "" Or TextBox2.Text <> "" Then
   MsgBox "输入用户名或密码错误,请重新输入！"
   End If
End Sub

Private Sub CommandButton2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
End Sub

Private Sub UserForm_initialize()
TextBox2.PasswordChar = "*"
End Sub

hwc2ycy

登陆成功后，你先关闭登陆的窗体，再显示另外的窗体嘛。

15288431649

登录路成功后，就可以显示。

15288431649

要实现的效果是登陆成功后就可以显示主菜单

wp8680

在“MsgBox "登录成功"”代码语句下面加二句：
UserForm2.Show
   Unload UserForm1

就能在启动下一个窗体并关闭当前窗体。

wp8680

Private Sub CommandButton1_Click()
If TextBox1.Text = "" Then
   MsgBox "用户名不能为空"
   Exit Sub
ElseIf TextBox2.Text = "" Then
   MsgBox "密码不能为空"
   Exit Sub
End If
If TextBox1.Text = "杨晓凤" And TextBox2.Text = "072607" Then
   MsgBox "登录成功"
   UserForm2.Show
   Unload UserForm1
Exit Sub
End If
If TextBox1.Text <> "" Or TextBox2.Text <> "" Then
   MsgBox "输入用户名或密码错误,请重新输入！"
   End If
End Sub

Private Sub CommandButton2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
End Sub

Private Sub UserForm_initialize()
TextBox2.PasswordChar = "*"
End Sub

15288431649

谢谢，我试试。呵呵