C# と VB.NET の質問掲示板

> フォームAからShowDialog()でフォームBを呼び出しています。
この部分を詳しく教えて下さい。
多分

Dim f As New フォームB
f.ShowDialog()

みたいにしてるんじゃないですか？
フォーム名.プロパティ名でアクセスするときのフォームのインスタンスは暗黙的に
作られるインスタンスなので、Newしたフォームとは別物です。
多分、そのせいで変更されてないのではないでしょうか。

>症状が再現するミニマムコードを書いてください。
>どんなコードなのか解らないとアドバイスも何も出来ませんよ。

申し訳ありませんでした。
以下が症状が再現するミニマムコードです。


※各フォームには、ボタンとテキストボックスが1つずつ置かれています。

'フォームA(スタートアップフォーム)
Public Class FormA
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim f As New FormB
        f.ShowDialog()
    End Sub
End Class


'フォームB
Public Class FormB
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim f As New FormC
        f.ShowDialog()
    End Sub
End Class


'フォームC
Public Class FormC
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        FormA.TextBox1.Text = "test"
        FormB.TextBox1.Text = "test"
    End Sub
End Class

実行してみたところ、スタートアップフォームのフォームAのテキストボックスは"test"と表示されましたが、
フォームBのテキストボックスは表示されませんでした。


ご覧の通り、かずきさんのおっしゃる通りのプログラムです。
フォーム名.プロパティ名でアクセスするときのフォームのインスタンスを明示的に作成するにはどうすればよいのでしょうか？

■No42674 (ミク さん) に返信
> フォーム名.プロパティ名でアクセスするときのフォームのインスタンスを明示的に作成するにはどうすればよいのでしょうか？

まず、「フォーム名.プロパティ名」でアクセスするのをやめましょう。

そして次は、FormBにFormAのフィールドを用意し、コンストラクタで受け渡すようにします。

Public Class FormB
    Private _formA As FormA

    Public Sub New(ByVal form As FormA)
        _formA = form
    End Sub

    〜

End Class

あとは、FormBを作成する際のコンストラクタに、FormA自らを設定してやり、
FormBではFormA用のフィールド（_formA）を使ってFormAのTextBoxにアクセスすればOKです。

    ' FormBの表示
    Dim f As New FormB(Me)
    f.ShowDialog()

    とやって、FormBでFormAのTextBoxにアクセスするには、

    _formA.TextBox1.Text = "ほげほげ"

FormB→FormCも同じ方法でよいでしょう。

ただし、本当はFormAにTextBoxの値を設定するためのプロパティなりメソッドなりを用意して、
FormB、FormCではそのプロパティ、メソッドを呼び出す方がいいと思います。

先ほどのミニマムコードの

'フォームB
Public Class FormB
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim f As New FormC
        f.ShowDialog()
    End Sub
End Class

'フォームC
Public Class FormC
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        FormA.TextBox1.Text = "test"
        FormB.TextBox1.Text = "test"
    End Sub
End Class


を


'フォームB
Public Class FormB
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim f As New FormC(Me)
        f.ShowDialog()
    End Sub
End Class

'フォームC
Public Class FormC
    Private _formB As FormB

    Public Sub New(ByVal form As FormB)
        _formB = form
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        FormA.TextBox1.Text = "test"
        _formB.TextBox1.Text = "test"
    End Sub
End Class

というように、まさるさんに教えていただいたとおりにしてみたのですが、
コンストラクタの部分で

警告	1	
デザイナで生成された型 'WindowsApplication1.FormC' の 'Public Sub New(form As FormB)' は 
InitializeComponent メソッドを呼び出さなければなりません。

と警告が表示されてしまいます。


警告なので無視して実行してみるとフォームBからフォームCを表示させた時に正常にフォームCが表示されません。
ボタンもテキストボックスもない空のフォームが表示されてしまいます。


どうすればいいのでしょうか？

すみません。



'フォームC
Public Class FormC
    Private _formB As FormB

    Public Sub New(ByVal form As FormB)

        _formB = form
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        FormA.TextBox1.Text = "test"
        _formB.TextBox1.Text = "test"
    End Sub
End Class

を

Public Class FormC
    Private _formB As FormB

    Public Sub New(ByVal form As FormB)
        InitializeComponent()
        _formB = form
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        FormA.TextBox1.Text = "test"
        _formB.TextBox1.Text = "test"
    End Sub
End Class

というようにコンストラクタ内でInitializeComponent()を実行することで警告を消すことができました。



皆さんのおかげで疑問点もすべて解決することができました。
本当にありがとう御座いました。