起動フォームが終了して終了できませんでしたvb

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

を終了した後、他のオプションは、デフォルトでは、新しいプロジェクトのシャットダウン・モードは、「スタートアップフォームが閉じたとき」であるということである親フォームとそれに近いを非表示にする必要があります。スタートアップフォームを閉じたので、プログラムをシャットダウンします。これを「の最後のフォームが閉じたとき」に変更することができます。

[プロジェクト]> [プロパティ]のメニューバーに表示されます。アプリケーションセクションの下部を見てください。