Работа с элементами на UserControl добавленном динамически

@creatorsla · Регистрация: 16.06.2018

Author24 — интернет-сервис помощи студентам

Добрый день. Обычно нахожу ответы в поиске, но в этот раз не получается.
Есть форма, на которую я в зависимости от условий добавляю заранее подготовленные UserControl's - uc1, uc2,...
Например на одной форме одна кнопка, на другой две кнопки и т.д.

На форме есть элементы управления, которые будут менять надписи на кнопках размещенных на UserControl'ах.
Собственно вопрос, как к этим элементами обратиться без указания полного имени UserControl.

Если пишу код типа

VB.NET

1	uc1.Button1.Text = "0"

то все работает.

Но если пробую обратиться

VB.NET

1	Controls("uc" & u).button1.text = "0"

то появляется ошибка

BC30456 "button1" не является членом "Control"

Понимаю, что должно быть простое решение, но найти не могу.

@Orlangur · 14.10.2018, 00:28

creatorsla, Как соединить имя контрола и значение переменной

@creatorsla · 14.10.2018, 19:34 **[ТС]**

Спасибо.
С помощью With ничего не получилось. Упорно не хотел видеть кнопку.

VB.NET

1
2
3

        With CType(Me.GroupBox1.Controls("uc" & u), UserControl)
            .Button1.Text = "2"
        End With

Ошибка BC30456 "Button1" не является членом "UserControl".

Зато с Find заработало.

VB.NET

1 2	Dim bt As Button = CType(Me.GroupBox1.Controls.Find("Button1", True)(0), Button) bt.Text = "2"

Правда сначала было коряво, т.к. я использовал команды Hide/Show

Кликните здесь для просмотра всего текста

VB.NET

1
2
3

        uc1.Hide()
        GroupBox1.Controls.Add(uc2)
        uc2.Show()

Оказалось, что в таком случае панели остаются и могут возникать ошибки, но после замены на remove все работает

VB.NET

1 2	GroupBox1.Controls.Remove(uc1) GroupBox1.Controls.Add(uc2)

@Orlangur · 14.10.2018, 21:31

creatorsla, если usercontrol'ы - контейнеры, то тогда нужно опуститься чуть ниже, например

VB.NET

 Dim UsrBtn As Control.ControlCollection = CType(Me.GroupBox1.Controls("UserControl1" & 1), UserControl1).Controls
        For i = 0 To UsrBtn.Count - 1
            CType(UsrBtn("Button" & i), Button).Text = i
        Next

@creatorsla · 14.10.2018, 22:06 **[ТС]**

Спасибо. Получилось.
Правда, надо проверять наличие компонента в данном контейнере. Если Button1 есть в каждом, а CheckBox1 не в каждом, то код получился такой.

VB.NET

1
2
3

        Dim UsrBtn As Control.ControlCollection = CType(Me.GroupBox1.Controls("UserControl" & u), UserControl).Controls
        CType(UsrBtn("Button" & 1), Button).Text = 1
        If CType(UsrBtn("CheckBox" & 1), CheckBox) IsNot Nothing Then CType(UsrBtn("CheckBox" & 1), CheckBox).Text = 1

@Orlangur Лень — мое второе и 3206 / 2397 / 684 Регистрация: 28.11.2014 Сообщений: 3,587 Записей в блоге: 3
	14.10.2018, 00:28	2
	creatorsla, Как соединить имя контрола и значение переменной 1

	14.10.2018, 22:06

Работа с элементами на UserControl добавленном динамически

Решение