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

ありがとうございます。

http://www.atmarkit.co.jp/fdotnet/dotnettips/224controls/controls.html

このページを参考にして、
コントロールの値を取得する方法は分かりました。





    Public Function GetAllControls(ByVal top As Control) As Control()
        Dim buf As ArrayList = New ArrayList
        For Each c As Control In top.Controls
            buf.Add(c)
            buf.AddRange(GetAllControls(c))
        Next
        Return CType(buf.ToArray(GetType(Control)), Control())
    End Function


        Dim all As Control() = GetAllControls(Me)
        For Each c As Control In all
            Dim c_Name = c.Name

            If c.GetType Is GetType(NumericUpDown) Then

                Dim c_Value = CType(c, NumericUpDown).Value

            End If

        Next

あとは、得られた値を反映させる方法なのですが、
文字列からコントロールを指定するにはどのようにしたら良いですか？

http://blog.hiros-dot.net/?p=4590

                Me.Controls(c_Name).vallue = 5

のようにして、指定したいのですが
うまくいきません。

http://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=29420&forum=7

10年以上前の記事ですが、

Dim s() As String = {"0", "1", "2", "3", "4"} 
Dim i As Integer = 0 
Do while i < 5 
Dim ctrl As Control = FindControl(Me, "テキスト" + cstr(i + 1)) 
ctrl.Text = s(i) 
i = i + 1 
Loop 

 FindControlを使うしかないのでしょうか？

HashTableにコントロールをアイテムとして、
コントロール名をキーとして入れれば
できそうな気がします。



    Public Function GetAllControls2(ByVal top As Control) As Hashtable
        Dim buf As Hashtable = New Hashtable
        For Each c As Control In top.Controls


            Dim c_nama = c.Name

            Add(buf, GetAllControls2(c))
        Next
        Return buf
    End Function


    Public Shared Function Add(ByVal first As Hashtable, ByVal second As Hashtable) As Hashtable
        Dim table As Hashtable = New Hashtable
        For Each e As DictionaryEntry In first
            table.Add(e.Key, e.Value)
        Next
        For Each e As DictionaryEntry In second
            If Not table.ContainsKey(e) Then
                table.Add(e.Key, e.Value)
            End If

        Next
        Return table
    End Function



のようにしてやってみたのですが、
なぜかTableLayoutpanelの下層に入っている
コントロールのNameが空になってしまいます。

ArrayListを使った方法で
 CType(buf.ToArray(GetType(Control)), Control())
のようにコントロール配列にキャストしてやると
Nameが入るようになるようです。

キャストせずにNameが入るようにするにはどうしたら良いですか？