特定のフォームだけ別フォームからの参照がされません

質問

VB 2005,Framework2.0を使用しています。

現在、サブフォームからダイアログフォームを表示し、ダイアログフォーム内の入力値等をサブフォームに渡す処理を行っています。
サブフォームは複数作成しており、特定のサブフォームだけダイアログフォームの入力値がサブフォームに渡されず原因が分からなくて困っています。

コードは以下のような形で書いています。

'サブフォーム
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim f As New Dialog1
f.StartPosition = FormStartPosition.CenterParent
f.ShowDialog()
End Sub

End Class

'ダイアログフォーム
Public Class Dialog1

Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click

Form1.Label1.Text = Textbox1.text
Me.Close()
End Sub

End Class

2005では、別フォームからの参照はVB6と同じようにインスタンスを作成しなくても参照できる様になったと聞いていますので、上記のコードでも参照方法として問題はないと思うのですが、うまく動作しない原因が分かる方が居られましたら宜しくお願いします。

回答No.1

うぃず（@Wizard_Zero） · ベストアンサー

> VB6と同じようにインスタンスを作成しなくても参照できる様になった（略）参照方法として問題はない

それは、フォームのインスタンスが１つの場合です。
インスタンスが複数ある場合、既定のインスタンスは使わないほうがよいです。

Dialog1のShowDialogでForm1のインスタンスを指定し、Dialog1側ではOwnerプロパティを使って文字列を渡すようにすれば解決できると思います。

Public Class Dialog1

Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click

CType(Me.Owner, Form1).Label1.Text = Textbox1.text ' ここを修正
Me.Close()
End Sub

End Class

呼び出す際は
Dim f As New Dialog1
f.StartPosition = FormStartPosition.CenterParent
f.ShowDialog(Me) ' ここでForm1のインスタンスを指定
End Sub

お礼

仰る通り、原因はサブフォームにインスタンスが複数（二つ以上）存在していると受け渡しが行えない様でした。
教えて頂いた方法で無事に文字列の参照することは出来ました。
ありがとうございました。

しかし、質問外ですが問題が発生しまして、サブフォームのコントロールの変更等が出来ませんでした。
そこで以下の方法で自己解決しました。

'サブフォーム
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim f As New Dialog1(Me)
f.StartPosition = FormStartPosition.CenterParent
f.ShowDialog()
End Sub
End Class

'ダイアログフォーム

Public Class Dialog1

Dim f1 As Form1

Sub New(ByVal f As Form)
f1 = f
InitializeComponent()
End Sub

Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click

F1.Label1.Text = Textbox1.Text　'質問箇所の修正
'F1.Checkbox1.Checked = Ture 'サブフォームのコントロール変更

Me.Close()
End Sub

End Class