名前が重複するオブジェクトはfindを使って以下のようにまとめられます。
For r As Integer = 1 To 10 Dim c As Control() = Me.Controls.Find("txtResult" & r, True) CType(c(0), TextBox).Text= "chokmah" Next
同じようにプロパティもfindを使ってまとめようとしてみたのですが、「型'Control'の値をList(Of String)に変換できません」とエラーが出ます。
そもそもプロパティをまとめるということ自体が不可能なことなのでしょうか。
以下のプロパティを↓
Private _cnt1 As New List(Of String) Private _cnt2 As New List(Of String) Private _cnt3 As New List(Of String) Public Property pCnt1 As List(Of String) Get Return _cnt1 End Get Set(value As List(Of String)) _cnt1 = value End Set End Property Public Property pCnt2 As List(Of String) Get Return _cnt2 End Get Set(value As List(Of String)) _cnt2 = value End Set End Property Public Property pCnt3 As List(Of String) Get Return _cnt3 End Get Set(value As List(Of String)) _cnt3 = value End Set End Property
↓のようにまとめたら「c(0)」のところでエラーが出ます。
For r As Integer = 1 To 3 Dim c As Control() = Controls.Find("pCnt" & r, True) CType(c(0), List(Of String)).Add("binah") Next
よろしくお願いいたします。
質問の意図がコードから読み取れません。
どのような意図があり、どうなることを期待して、どうしたら、どうなったかの下記恋をおねがいします。