フォームを別のフォームから閉じる方法（VB.Net）

Question

前提・実現したいこと

初めて質問をさせていただきます。

作成しているもの：Windows フォーム アプリケーション

開発環境
OS: Windows 10 64bit
.NET Framework: Version 4.7.03056 SP1Rel
開発ツール: Visual Studio 2010 Professional
使用言語: VB.Net

発生している問題

フォームを別のフォームから閉じる方法を教えてください。
例えば
親フォームが frmMain
子フォームが Form1とForm2とします。
frmMainからボタンでForm1を開きます（Form1.show()）
その後frmMainから別のボタンでForm2を開きます(Form2.show())

この時にForm2を開く時にForm1が開いていれば、そのフォームを閉じるという　方法を知りたいです。
frmMainから（From1.Close()）を試してもダメでした。

よろしくお願いします。

##追加です

frmMain.vb

Public Class frmMain
    Public Shared index As Integer

    Private Sub frmMain_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim f As New frmMain()
        '表示位置
        f.StartPosition = FormStartPosition.WindowsDefaultLocation
        '最大サイズと最小サイズを現在のサイズに設定する
        Me.MaximumSize = Me.Size
        Me.MinimumSize = Me.Size
        Me.TopMost = False
        Me.FormBorderStyle = FormBorderStyle.None
    End Sub
    Private Sub btn_frm1_Click(sender As System.Object, e As System.EventArgs) Handles btn_frm1.Click
        If index = 1 Then
        Else
            Dim f As New From1()
            f.FormBorderStyle = FormBorderStyle.None
            f.Top = Me.Top
            f.Left = Me.Left
            f.StartPosition = FormStartPosition.Manual
            f.Show()
            MsgBox("close")
            Form2.Close()
            index = 1
        End If
    End Sub

Private Sub btn_frm2_Click(sender As System.Object, e As System.EventArgs) Handles btn_frm2.Click
        If index = 2 Then
        Else
            Dim f As New From2()
            f.FormBorderStyle = FormBorderStyle.None
            f.Top = Me.Top
            f.Left = Me.Left
            f.StartPosition = FormStartPosition.Manual
            f.Show()
            MsgBox("close")
            Form1.Close()
            index = 2
        End If
    End Sub
End Class

Form1.vb
Public Class From1
    Private Sub From1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        '最大サイズと最小サイズを現在のサイズに設定する
        Me.MaximumSize = Me.Size
        Me.MinimumSize = Me.Size
        ' このフォームを常に最前面に表示する
        Me.TopMost = True
    End Sub
End Class

Form2.vb
Public Class From2
    Private Sub From2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        '最大サイズと最小サイズを現在のサイズに設定する
        Me.MaximumSize = Me.Size
        Me.MinimumSize = Me.Size
        ' このフォームを常に最前面に表示する
        Me.TopMost = True
    End Sub
End Class
コード

Comments

[YAmaGNZ]

再現可能なソースの記述をお願いします。

[nakajob]

フォームの表示の部分のみを抜き取った形になりますが、ご了承ください。

[papinianus]

C#のタグとってください→ありがとうございます

[nakajob]

取りました。

Answer 1

ボタンのClickイベント内でForm1（Form2）のインスタンスを作成しています。
このインスタンスとForm1.Closeで指定しているForm1のインスタンスが異なることが原因です。

Public Class frmMain
    Private f1 As Form1
    Private f2 As Form2

    Private Sub btn_frm1_Click(sender As System.Object, e As System.EventArgs) Handles btn_frm1.Click
        f1 = New From1()
        f1.FormBorderStyle = FormBorderStyle.None
        f1.Top = Me.Top

        If f2 IsNot Nothing Then
            f2.Close()
        End If 
    End Sub

といった感じでインスタンスを格納する変数の宣言場所を変えるか

    Private Sub btn_frm1_Click(sender As System.Object, e As System.EventArgs) Handles btn_frm1.Click
        From1.FormBorderStyle = FormBorderStyle.None
        From1.Top = Me.Top

        From2.Close()
    End Sub

といった感じで暗黙で宣言されているForm1等を使用するかだと思います。

Comments

[nakajob]

２つのうちの最初の方法で行いましたが、一度閉じた後に再度開こうとすると以下のエラーが表示されます。

破棄されたオブジェクトにアクセスできません。

[papinianus]

Closeしたので、破棄してますよね。用途にもよりますが、Visibleを使ったほうがいいのでは？

[nakajob]

Visibleに変えたら思っていた通りの形になりました。
ありがとうございます。
呼び出すときはShowのままにしているのですが、呼び出しもVisibleの方がプログラム的には良いのでしょうか？
頭の悪そうな質問ですいません。

[papinianus]

https://msdn.microsoft.com/ja-jp/library/system.windows.forms.control.show(v=vs.110).aspx
Showはvisibleをかえてるのでそのままでも問題ないです。一般的には、Show()/Hide()のペアにするか、visible true/falseのペアにするかでどちらかに統一したほうがいいとは思います。

[nakajob]

ありがとうございます。
変な気もするので変更することにします。

Answer 2

フォームが開いているか、はVisibleプロパティで、最小化しているかはWidnowState（だったっけ）でみれるでしょ

んで、閉じるときはフォームのインスタンス変数でCloseしないとダメです
どっかにForm1とForm2のインスタンス変数置いときましょう
＃プロパティ見ようと思ったらどのみち必要ですな