如何从当前表单打开另一个表单？

Question

我们的第一个表单是登录表单。登录后如何打开下一个表单？

Answer 1

在您的登录表单中，我假设您在按钮控件的 Click 事件方法内执行验证。因此，您将得到如下内容：

Private Sub btnLogin_Click()
    If ValidatePassword(txtPassword.Text) Then
        ' The password is correct, so show the main form and close the login form
        MainForm.Show
        Unload Me
    Else
        ' The password is incorrect, so leave this form on screen
        MsgBox "Invalid password entered!", vbError
        txtPassword.SetFocus
    End If
End Sub

此代码的两个有趣的功能是：

1. Show 方法，您可以在要显示的表单对象上调用该方法。
   在这种情况下，它可能是您的主窗体 - 将 MainForm 替换为它所调用的任何名称。

2. Unload 语句，用于关闭并销毁指定的表单。
   在本例中，Me 指的是登录表单，因为您已经完成了它。

Answer 2

您需要在登录表单后需要显示的表单上调用Show。您可以阅读有关了解表单和表单事件的更多信息

Answer 3

我的方法是避免尝试将登录表单作为第一个表单打开。

相反，让主窗体位于第一个，并在其加载事件中将登录窗体显示为模式对话框。这可以通过首先在其上进行显示来显示主窗体来完成。基于标准模板“登录对话框”表单的示例，并进行了一些代码更改：

frmMain.frm

Option Explicit

Private Sub Form_Load()
    Dim Control As Control

    Show
    frmLogin.Show vbModal, Me
    With frmLogin
        txtSuccess.Text = CStr(.LoginSucceeded)
        If .LoginSucceeded Then
            'Proceed normally, perhaps after capturing
            'the User Name, etc.
            txtUserName.Text = .User
            txtPassword.Text = .Password
        Else
            'Do "Unload Me" or disable all controls
            'as shown here, etc.
            For Each Control In Controls
                On Error Resume Next
                Control.Enabled = False
                On Error GoTo 0
            Next
        End If
    End With
    Unload frmLogin
End Sub

frmLogin.frm

Option Explicit

Public LoginSucceeded As Boolean
Public User As String
Public Password As String

Private Sub cmdCancel_Click()
    LoginSucceeded = False
    Hide
End Sub

Private Sub cmdOK_Click()
    'Check for correct password, hard-coded here.
    If txtPassword.Text = "password" Then
        LoginSucceeded = True
        User = txtUserName.Text
        Password = txtPassword.Text
        Hide
    Else
        MsgBox "Invalid Password, try again!", , "Login"
        With txtPassword
            .SetFocus
            .SelStart = 0
            .SelLength = Len(.Text)
        End With
    End If
End Sub