form1かform2のどちらかから変数をform3に受け渡したい

Question

フォーム間の値の受け渡しをしたいのですが、当初はform1からform3へ変数を渡すことしか考えていませんでしたので、form1からモーダルフォームとしてform3を開く（つまりこれはform1がform3のオーナーフォームになるということですよね?）ことで解決しておりました。
ソースコードが以下です。

Public Class form1
    'モーダルフォームとしてフォーム3を開く。受け渡すためにテキストボックス1にnameを入れておく
    Private Sub btn1_Click(sender As Object, e As EventArgs) Handles btn1.Click
         TextBox1.Text = name
         Dim f As New form3
         f.ShowDialog(Me)
         f.Dispose()
    End Sub
End Class

Public Class form3
　　 'フォーム1のテキストボックスからnameを取得する
    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Dim str As String = CType(Me.Owner, form1).TextBox1.Text
    End Sub
End Class

しかし、今新たにform2を作り、同じくform2をform3のオーナーフォームにして値を受け渡そうと思っていたら、form3のオーナーフォームが２つになってしまったことが原因なのか、エラーがでるようになってしまいました。

'form1,2からform3の開き方は同じ

Public Class form3
　　 'if文でform1,2のどちらかからstrに値を渡す
    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Dim str As String = CType(Me.Owner, form1).TextBox1.Text
         if str = "" then
                str = CType(Me.Owner, form2).TextBox1.Text 
         End If
    End Sub
End Class

しかしこれではエラーが起きます
エラー文章は以下です。
「System.InvalidCastException: '型 'sumple.form2' のオブジェクトを型 'sumple.form1' にキャストできません。'」

エラー文章のようにform2からform1にキャストする気はないのですが、プログラムにはそう取られている？みたいだと思うのですが、解決策が分かる方教えていただけませんか？

Visual Studio 2019
バージョン:Windowsフォームアプリケーション
フレームワーク:.NET Framework4.7.2

Comments

[gentaro]

> エラー文章のようにform2からform1にキャストする気はないのですが、

あなたが「そのつもりがない」としても、以下のコードがそのように記述されています。

> Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
> Dim str As String = CType(Me.Owner, form1).TextBox1.Text

コンパイラは「お気持ち」を解釈してくれることはありません。
書いたとおりの内容を解釈します。

Answer 1

エラー文章は以下です。

「System.InvalidCastException: '型 'sumple.form2' のオブジェクトを型 'sumple.form1' にキャストできません。'」
エラー文章のようにform2からform1にキャストする気はないのですが、プログラムにはそう取られている？みたいだと思うのですが、解決策が分かる方教えていただけませんか？

Ctype関数について正しく理解されていないようです。

任意の式を、指定されたデータ型、オブジェクト、構造体、クラス、またはインターフェイスに明示的に変換し、その結果を返します。

とありますが、これはキャストするだけで、Form2をForm1に作り替えてくれるわけではありません。
ですので、オーナーフォームにForm2を指定した場合、CType(Me.Owner, form1)は変換できずにエラーとなります。

与えられた変数の型が何なのか判定する場合はTypeOf演算子を使用します。

If TypeOf Me.Owner Is Form1 Then
    MessageBox.Show("Form1")
End If

ただ、Form3側でこのような形で判断してForm毎に値を取得するようなことを行うと、対象のFormが増えるたびにソースを修正しなくてはならなくなります。

ですので、Form3側にプロパティを用意して、Form1、Form2からそのプロパティにセットすべきかと思います。

Public Class form3

    Public Property StrData As String

    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim str = Me.StrData
    End Sub
End Class

といった感じでForm3にプロパティを用意して

Dim f3 As New Form3
f3.StrData = "TEST"
f3.ShowDialog(Me)

といった感じで呼ぶ側がそのプロパティにセットするといった感じです。

Comments

[hanbee.com]

こんな簡単にできるとは！
キャストのことは正直あまり良くわかっていませんが、どのネット記事を読んでも変数の受け渡しについては理解できなかったので、public propertyの使い方などを簡潔に教えていただけて嬉しかったです。

Answer 2

たんにform2のインスタンスを渡してそこからアクセスすればいいだけです。
それができない理由がなにかあるんでしょうか。

---

「ファイルを開く」ダイアログボックスを表示する - .NET Tips (VB.NET,C#...)

'OpenFileDialogクラスのインスタンスを作成
Dim ofd As New OpenFileDialog()

'はじめのファイル名を指定する
'はじめに「ファイル名」で表示される文字列を指定する
ofd.FileName = "default.html"
'はじめに表示されるフォルダを指定する
'指定しない（空の文字列）の時は、現在のディレクトリが表示される
ofd.InitialDirectory = "C:\"
'[ファイルの種類]に表示される選択肢を指定する
'指定しないとすべてのファイルが表示される
ofd.Filter = "HTMLファイル(*.html;*.htm)|*.html;*.htm|すべてのファイル(*.*)|*.*"
'[ファイルの種類]ではじめに選択されるものを指定する
'2番目の「すべてのファイル」が選択されているようにする
ofd.FilterIndex = 2
'タイトルを設定する
ofd.Title = "開くファイルを選択してください"
'ダイアログボックスを閉じる前に現在のディレクトリを復元するようにする
ofd.RestoreDirectory = True
'存在しないファイルの名前が指定されたとき警告を表示する
'デフォルトでTrueなので指定する必要はない
ofd.CheckFileExists = True
'存在しないパスが指定されたとき警告を表示する
'デフォルトでTrueなので指定する必要はない
ofd.CheckPathExists = True

'ダイアログを表示する
If ofd.ShowDialog() = DialogResult.OK Then
    'OKボタンがクリックされたとき、選択されたファイル名を表示する
    Console.WriteLine(ofd.FileName)
End If

ここでは、ofd にOpenFileDialogというフォームのインスタンスを入れて、そのofdから、そのフォームの変数やプロパティにアクセスし、表示してます。

同じことを、form2やform3に対して行えばいいという話となります

＃なんなら、form1のインスタンスを渡してやるというはなしに

Comments

[hanbee.com]

回答ありがとうございます。
申し訳ありませんが、私は初心者なので、変数の受け渡しの基礎がわかっていません。
form2のインスタンスを渡してそこからアクセスする方法を教えていただけませんか？