Form1を閉じるFileExists + Open Form2

ファイルが存在する場合はForm cnxを閉じたり隠したりしてForm Productを開きます。しかし何かが間違っていて、なぜこれが機能しないのかわかりません。Form1を閉じるFileExists + Open Form2

Private Sub cnx_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    strFileName = "app.txt" 
    strBasePath = Application.StartupPath 
    If My.Computer.FileSystem.FileExists(strFileName) = True Then 
     Product.Show() 
     Me.Hide() 
    ElseIf My.Computer.FileSystem.FileExists(strFileName) = False Then 
     MessageBox.Show("File App.config is Missing! Create a new Database.", 
      "Something is Wrong!", MessageBoxButtons.OK, MessageBoxIcon.Warning) 
    End If 
End Sub

ありがとうございます。

出典

2017-04-22 Jamyz

あなたは7つの質問をしましたが、回答は7つでしたが、何も受け入れていません。回答を受け入れる - と投票する - 他の人が良い投稿を見つけるのを助ける。 [ツアー]はSOの仕組みを説明します。 – Plutonix

Loadイベントでフォームを非表示（）することはできません。 Show（）を使用したためLoadイベントが発生します。戻ってフォームを作成したコード、つまりIf文が属するコードを見つけなければなりません。しかし、おそらくあなたはこれをやり続けたいと思うでしょう。代わりにClose（）を使い、Project> Properties> Applicationタブ>シャットダウンモード=最後のフォームを閉じるときに使います。 –

はい、それは....です。ありがとう – Jamyz

おそらく最適ではないかもしれませんが、このようなことを行うことができます。

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    hideForm(Me) 
    Form2.Show() 
End Sub 

Private Sub hideForm(form As Form) 
    form.Opacity = 0.0F 
    form.ShowInTaskbar = False 
End Sub

また、Form2の下に追加することを忘れないでください。そうでないと、プログラムはForm2を閉じた後も開いたままになります。

Private Sub Form2_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing 
    Form1.Close() 
End Sub

出典

2017-04-23 04:00:22 EuX0

Form1を閉じるFileExists + Open Form2

答えて

関連する問題