Обращение к свойствам и методам элементов управления...

[Rust]

Здравствуйте!
Как добиться того, чтобы работал первый вариант?

1. i=1
UserForm1.Controls("CommandButton" & i).ForeColor = vbRed

2. UserForm1.CommandButton1.ForeColor = vbRed

[Rust]

Забыл пояснить:
В приведённом примере первый вариант выдаёт ошибку,
а второй работает нормально.

[Amed]

Код: Выделить всё

    Dim ctl As Control
   
    Dim i As Long
    i = 1
   
    For Each ctl In UserForm1.Controls
        If ctl.Name = "CommandButton" & i Then
            ctl.ForeColor = vbRed
            Exit For
        End If
    Next ctl

[alibek]

Вообще-то первый вариант и так должен работать.
Во всяком случае у меня он работает.

Посмотри, чему равно "CommandButton" & i ?

[Rust]

Спасибо!

[Rust]

Прошу прощения, поторопился.

For i = 1 To 41
If UserForm1.Controls("CommandButton" & i).Caption = CStr(D_Now) Then
UserForm1.Controls("CommandButton" & i).ForeColor = vbRed
Exit For
End If
Next i

Во второй строке кода забыл привести D_Now к строковому формату.