Цикл по меткам пользовательских форм?

Question

Я пытаюсь перебирать метки в пользовательской форме, не имея 5 строк кода.Я знаю, что это не работает, но я не могу придумать другой способ проиллюстрировать то, что я ищу.

for i = 0 in 4
     Userform.Lable1+i.caption = "Some Text"
next

Answer 1

Доступ к коллекции Controls пользовательской формы можно получить с помощью строки, которая является именем определенного элемента управления:

for i = 0 in 4
     Me.Controls("Label_" & i).caption = "Some Text"
next

Answer 2

Все, что вы добавляете в пользовательскую форму, находится в форме элемента управления, и ко всем этим можно получить доступ с помощью цикла UserForm.Controls.Используя TypeName (control), он возвращает тип элемента управления, такой как Label, Text, Combobox, Listbox, Button и другие.В этом случае нам нужна только Метка, поэтому мы проверяем только «Метку»

'ctrl Variable for the Loop
Dim ctrl As Control
'Loop all Controls
For Each ctrl In UserForm.Controls
    'Check if the current ctrl is a Label
    If TypeName(ctrl) = "Label" Then
        'This is a label, do your thing yo
    End If
'Check Next Control
Next ctrl