Объявление управления как специфицированного c типа (ов)

Question

У меня есть пользовательская форма с несколькими типами элементов управления (TextBox, ComboBox, Button, Check box, Label).

Я хочу проверить значение в каждом TextBox и ComboBox и изменить цвет поля на красный если нет значения.

Проблема использования коллекции «Элементы управления» заключается в том, что некоторые элементы управления не имеют свойства значения, например, «Метка». Поэтому я хочу написать код, в котором не будет необходимости определять тип элемента управления внутри тела l oop, поскольку этот тип уже указан на уровне объявления.

Answer 1

L oop через элементы управления, и если текстовое поле или комбинированный список и значение = "", то измените цвет на красный

Private Sub CommandButton1_Click()
    Dim crt As Control
    For Each crt In Me.Controls
        If TypeName(crt) = "TextBox" Or _
           TypeName(crt) = "ComboBox" Then
            If crt.Value = "" Then
                crt.BackColor = vbRed
            Else
                crt.BackColor = vbWhite
            End If
        End If
    Next

End Sub