vb.netにて子コントロール内にいるラベルテキストを編集したい

Question

前提

デザイン
親UserControl内に子Controlを配置しています(画像1)
子UserControlにはLabelを2つ配置しています(画像2)

①画像1

②画像2

実現したいこと

Hoge()を呼び出したときに子UserControl内のLabel.Textを編集したい
Controlのプロパティは以下のソースコードようにいじれるが、子UserControl内のラベルのプロパティを編集できない

該当のソースコード

Imports System.Windows.Forms

Public Class Form1
   'フィールド
    Private uctOya() As System.Windows.Forms.UserControl
    Private uctKodomo() As System.Windows.Forms.UserControl

    Private Sub Hoge()
        Me.uctOya = New uctOya(0) {}
        Me.uctKodomo = New uctKodomo(1) {}
        Me.SuspendLayout()

        'インスタンス生成
        Me.uctOya(0) = New uctOya
        Me.uctKodomo(0) = New uctKodomo
        Me.uctKodomo(1) = New uctKodomo

        'プロパティ設定
        Me.uctOya(0).Name = "Oya"
        Me.uctOya(0).Location = New Point(0, 0)
        Me.uctOya(0).Size = New Size(500, 100)

    End Sub

End Class

まだまだ初心者でわからないことが多いのですが、考え方のご教授よろしくお願いいたします．

Answer 1

前の質問の続きであれば、uctOya のデザイン時に uctKodomo を貼り付けてください。

そうすると、こんな感じに書けます。

Public Class Form1

    Private ReadOnly OyaList As New List(Of uctOya)

    Public Sub New()
        InitializeComponent()
        OyaAdd("oya1", New Point(10, 10))
        OyaAdd("oya2", New Point(10, 120))
    End Sub

    Protected Function OyaAdd(name As String, location As Point) As uctOya
        Dim oya As New uctOya With {
            .Name = name,
            .Location = location,
            .Size = New Size(500, 100)
        }
        OyaList.Add(oya)
        Panel1.Controls.Add(oya)
        Return oya
    End Function

    Protected Sub OyaRemoveAt(index As Integer)
        Dim oya As uctOya = OyaList(index)
        OyaList.RemoveAt(index)
        Panel1.Controls.Remove(oya)
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        OyaList(0).UctKodomo1.Label1.Text = "A"
        OyaList(0).UctKodomo1.Label2.Text = "B"
    End Sub

End Class

Answer 2

最終的にどこまでやりたいのか分かりませんが、
・子UserControlにラベルのテキストを指すプロパティを用意する
・ラベルのテキストを変更するようなメソッドを用意する形にする
・ラベルそのものを返すプロパティを用意する
といった方法が考えられるかと思います。

Comments

[alastashim]

>YAmaGNZ様
コメントありがとうございます。

例えば、子UserControlに以下のメゾットを追加
Public Sub ChangeLabelText(ByVal name)
Label1.Text = name
End Sub

その後、質問時のソースコードの中に呼び出しを書くとしたらどのように書けばいいのでしょうか。
お手数ですが、考え方などをお教え願えますと幸いです。

[YAmaGNZ]

uctKodomo(0).ChangeLabelText("TEST")
ってことでは？

親コントロールに対して、自分の子コントロールはこれですよって感じのコードがないのでそのあたりのことは知りませんが