Как сделать группу контролов членами коллекции другого контрола? - Visual Basic .NET
Формулировка задачи:
Всем здравствуйте.
На форме есть группа Label с различными именами и PictureBox. Задача сделать все Label членами коллекции PictureВox.
Если сделать так, то всё работает как надо
Но это громоздко.
А вот если сделать так, то часть меток не становится членами коллекции PictureBox. Почему?
SetParent.rar
Решение задачи: «Как сделать группу контролов членами коллекции другого контрола?»
textual
Листинг программы
Dim LabList As New List(Of Label) ' список Label формы For Each lbl As Control In Me.Controls If TypeOf lbl Is Label Then LabList.Add(CType(lbl, Label)) Next LabList.ForEach(Sub(L As Label) L.Parent = PictureBox1) For Each lbl As Control In PictureBox1.Controls If TypeOf lbl Is Label Then lbl.BackColor = Color.Green End If Next
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д