Form1以外が開いている時、操作出来ない様にしたい（Form3を自作メッセージボックスとして使用したい）

Question

下記の3つの事がしたいと思っています。
⑴ Form1・Form2・Form3が開いている場合は、Form1・Form2を操作出来ない様にする
⑵ Form1・Form2が開いている場合は、Form1を操作出来ない様にする
⑶ Form1・Form3が開いている場合は、Form1を操作出来ない様にする

Form1からForm2を開き、Form2からForm3を開くと
Form3の方のPrivate Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Loadの

'オーナーフォームを取得
_frm = CType(Me.Owner, Form1)で

ハンドルされていない例外
System.InvalidCastException:'型'Form_form2.Form2'の
オブジェクトを型'form_fom2.Form1'キャストできません。'

とエラーになってしまい困っています。
どなたか教えていただけないでしょうか。宜しくお願い致します。

Windows10でvisual studio 2019 for Windows Version 16.8.6を使用
Windows フォームアプリケーション(.NET Framework) VisualBasicより
プロジェクト名 form-form2として新規作成しました。

参考にしたサイト

' Form1
Public Class Form1
    Private _showingForm2 As Boolean = False
    Private _showingForm3 As Boolean = False

    ' -------「Form2 Open」ボタン
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim frm2 As Form2 = New Form2()
        frm2.Owner = Me
        frm2.Show()
    End Sub

    ' -------「Form3 Open」ボタン
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim frm3 As Form3 = New Form3()
        frm3.Owner = Me
        frm3.Show()
    End Sub

    Public Property ShowingForm2() As Boolean
        Get
            Return _showingForm2
        End Get
        Set(ByVal value As Boolean)
            _showingForm2 = value
            If _showingForm3 = False And _showingForm2 = False Then
                '子フォームのいずれも表示されていなかったら、
                'このフォームを有効にする
                Me.Enabled = True
            ElseIf _showingForm3 = True Or _showingForm2 = True Then
                '子フォームのいずれかが表示されていたら、
                'このフォームを無効にする
                Me.Enabled = False
            End If
        End Set
    End Property

    Public Property ShowingForm3() As Boolean
        Get
            Return _showingForm3
        End Get
        Set(ByVal value As Boolean)
            _showingForm3 = value
            '子フォームが表示されているかどうかをチェック
            If _showingForm3 = False Then
                '子フォームが表示されていなかったら、
                'このフォームを有効にする
                Me.Enabled = True
            Else
                '子フォームが表示されていたら、
                'このフォームを無効にする
                Me.Enabled = False
            End If
        End Set
    End Property
End Class
----------------------------------------------------------------------------------------------------
' Form2
Public Class Form2
    Private _frm As Form1

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'オーナーフォームを取得
        _frm = CType(Me.Owner, Form1)
        'フォーム2が表示されていると設定
        _frm.ShowingForm2 = True
    End Sub

    ' -------「Form3 Open」ボタン 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim frm3 As Form3 = New Form3()
        frm3.Owner = Me
        frm3.Show()
    End Sub

    ' -------「Form2 Close」ボタン
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        'フォーム2が非表示になると設定
        _frm.ShowingForm2 = False
        Me.Close()
    End Sub
End Class
----------------------------------------------------------------------------------------------------
' Form3
Public Class Form3
    Private _frm As Form1

    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'オーナーフォームを取得
        _frm = CType(Me.Owner, Form1)
        'フォーム3が表示されていると設定
        _frm.ShowingForm3 = True
    End Sub

    ' -------「Form3 Close」ボタン
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'フォーム3が非表示になると設定
        _frm.ShowingForm3 = False
        Me.Close()
    End Sub
End Class

Form1には「Form2 Open」ボタン「Form3 Open」ボタン、
Form2には「Form2 Close」ボタン「Form3 Open」ボタン、
Form3には「Form3 Close」ボタンを作成しています。
※「Form3 Open」ボタンは自作メッセージボックス表示テスト用の為、実際には使用しません。

Comments

[y_waiwai]

> エラーになってしまい困っています。

エラーメッセージを提示しましょう

[退会済みユーザー]

参考にしたサイトは url も文字列を書くだけでなくリンクを張ってください。

エラーメッセージをコピペして記載してください。どのように操作するとコードのどこで出るのかも書いてください。エラーメッセージには重要な情報が含まれていて、それだけ見れば原因と解決方法が分かることもあると認識して下さい。

開発環境（OS, Visual Studio のバージョン、.NET なのか Core なのかとそのバージョンなど）を書いてください。

[sin777]

y_waiwai様
質問内容を更新しました。ご指摘有難うございした。

[sin777]

SurferOnWww様
質問内容を更新しました。ご指摘有難うございした。

[退会済みユーザー]

Owner プロパティの設定による主従関係に矛盾はありませんか？

> Form1からForm2を開き、Form2からForm3を開くと

Form2 の Button1_Click で Form3 を開いたということのようですから、そうすると Form2 の Button1_Click で Form3 の Owner は Form2 と設定されるのでは？　

それを _frm = CType(Me.Owner, Form1) で Form1 にキャストしようとして「できません」と言われているのでは？

[sin777]

SurferOnWww様
回答有難うございます。
Form2からForm3を開いたらForm2をOwnerに変更すればよいのですが、
変更の仕方がわからないので、調べてみます。
又、キャストも理解できていないので勉強してみます。
有難う御座いました。

Answer 1

エラーの原因は、
Form1 → Form3　の場合だと、Form3のOwnerはForm1で良いが
Form1 → Form2 → Form3　の場合だと、Form3のOwnerはForm2にならなければいけない。
という不一致が原因で発生しています。

ただ単純にForm1を使用不可にしたいだけなのであれば
Show()メソッドを使わずに、ShowDialog()メソッドを使ってはどうでしょうか。
Form2からForm3もShowDialog()に変えると、3つ全部開いている状態で、Form3のみ操作可能になります。

自作のメッセージボックスとして利用したいという事なので
Form.DialogResult　を　ShowDialog()　からの戻り値として使う事もできます。

Comments

[sin777]

Form2とForm3もShowDialog()に変えて、3つ全部開いている状態で操作してみたら、Form3のみ操作可能になりました。
普通にShowDialog()にするだけで、３つのしたい事が出来ました。
回答有難う御座いました。ベストアンサーとさせていただきます。