Question

我创建了在文本框中获取密码的表单，然后在密码正确输入后，加载主表单。所以我用密码形式使用这个方法：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    If txtpass.Text = "sarina" Then
        MsgBox("Correct", vbOKOnly + vbInformation, "Pass Correct")
        Form1.Show()
    Else
        MsgBox("Incorrect", vbOKOnly + vbCritical, "Pass Incorrect")
    End If

End Sub

现在密码输入正确后，我想用以下代码关闭密码表单：

startup.close()

我将此代码放入主窗体中的Load事件中。但问题是，当我调试程序时，输入正确的密码后，两个表单都关闭。我怎样才能做到这一点？我的意思是，输入正确的密码后密码表格关闭然后主表格加载。怎么样？

Answer 1

您必须隐藏父表单并在子表单完成后将其关闭

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    If txtpass.Text = "sarina" Then
        MsgBox("Correct", vbOKOnly + vbInformation, "Pass Correct")
        Me.Hide '<--| hide your currently open form
        Form1.Show() '<--| load and show new form
        Unload Form1  '<--| unload new form
    Else
        MsgBox("Incorrect", vbOKOnly + vbCritical, "Pass Incorrect")
    End If
End Sub

Answer 2

另一个选项是，默认情况下，新项目的关闭模式为“启动表单关闭时”。由于您关闭了启动表单，因此您将关闭该程序。您可以将其更改为“当最后表单关闭时”。

您可以在Project＆gt;下的菜单栏上找到它。属性。看看应用程序部分底部附近。

加载vb后，启动表单无法关闭

2 个答案: