Form2からForm1の値をループで取り出す方法

Question

お世話になります。
Form2からForm1のTextBoxの値を取り出したいのですが、
通常なら

x = Form1.TextBox1.text

で、取れると思います。
しかし今回はForm1には「TextBox1_0～TextBox1_9」まで作ってあり、
Form2からループ処理で値を取り出したいと思っています。
Form2のコードのイメージとしては

        Dim x(9) As String
        For i As Integer = 0 To 9
            x(i) = Form1.TextBox1_i.text
        Next

こんな感じです。
これだと当然できないので、

        Dim x(9) As String
        For i As Integer = 0 To 9
            x(i) = Form1.Controls("TextBox1_" & i).text
        Next

ともやってみましたができませんでした。
実際にはテキストボックスは10個以上なのでなんとかループ処理をして楽にできないかご教授願います。

Answer 1

Form2 の直下に複数の TextBox その他のコントロールがあるなら、Controls プロパティで Form2 直下のコントロールのコレクションを取得し、For Each で回してそれらのコントロールの Type が TextBox か否かを一つ一つチェックし、TextBox であればそれを TextBox にキャストし、それから Name, Text プロパティを使って取得ししていけばいいと思います。

分からないとかうまくできないとかありましたら聞いてください。

【追伸】

上記の案は、TextBox の数が不定（もしくは不明）の場合を考えています。

TextBox の名前は分かっていて、数も決まっていて 10 個程度であれば、質問者さんが質問に書いた「通常なら」のようにして 0 から 9 まで 10 行書いた方が分かりやすい＆保守しやすいと思います。

コードが短くできると良いというのは場合によりけりで、今回のケースのような場合には、少なくとも自分的には、ループにするメリットは一つも感じられません。

【2018/3/5 追記】

下の 2018/03/05 16:09 の私のコメントで「サンプルコードを回答欄に追記しておきます」と書いた件です。

Dim f2 As Form2 = New Form2()
f2.Show()

For Each ctrl As Control In f2.Controls
    If TypeOf ctrl Is TextBox Then
        Dim name As String = (CType(ctrl, TextBox)).Name
        Dim text As String = (CType(ctrl, TextBox)).Text
    End If
Next

Comments

[RyukeO]

TextBoxが実際には60個あり最後の数字だけしか名前が違わないから楽にできないかと考えていました。
今回は時間がなく、教えていただいた方法が完全に把握できなかったため一つ一つコードを書くことにしました。(10分ぐらいかけて60行書けばおしまいなのを何日も考えるのもアレですしね)
余裕ができたらもう一度挑戦させていただきます。

ありがとうございました。

[退会済みユーザー]

説明文だけでは分からなかったようですので、サンプルコードを回答欄に追記しておきます。

Answer 2

Form1.FindControl(コントロール名) で、コントロールが取得できます。

-- 追記 --
あ、Windows.FormにはFindControlはなかった。。
Form.Controls.Find(コントロール名)　でいけますねー
https://dobon.net/vb/dotnet/control/findcontrolbyname.html

Comments

[y_waiwai]

追記を追加

[RyukeO]

ありがとうございます。
会社で作成していますので月曜日に結果を報告させていただきます。

[RyukeO]

Form.Controls.Find()でやってみましたがおそらく理解不足で期待した動作をしてくれませんでした・・・
時間もないためとりあえず今回はTextBox一つ一つ指定して強行突破で作ります。
落ち着いたときにまた改めて挑戦させていただきます。

ありがとうございました。

[RyukeO]

お世話になっております。

あれから一旦一つ一つ作成し、成果報告をしたあと時間ができましたのでもう一度挑戦してみました。
結果、教えていただいた方法が理解できて改善することができました。(当時は意味がわからなかったのですが^^；)
実際の作っているコードでは少しアレンジが必要でしたが60行ほど必要だったコードが数行で収まりメンテナンスもしやすくできました。

改めてお礼申し上げます。