Декларация типа управления - PullRequest
1 голос
/ 31 января 2020

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

Private Sub UserForm_Initialize ()

    Dim F as MSForms.Frame

    For Each F in Me.Controls
        F.Visible = False
    Next F

End Sub

1 Ответ

3 голосов
/ 31 января 2020

В поддержку моего комментария, что-то вроде этого

Dim c As Control

For Each c In Me.Controls
    If TypeOf c Is Frame Then
        c.Visible = True
    End If
Next c
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...