Как узнать тип контрола во время выполнения

[Alexanbar]

На SSTab размещено несколько контролов, в частности, Label, Frame.

Можно ли узнать, что они таковыми являются во время выполнения?

[Ruslan Demidow]

На SSTab размещено несколько контролов, в частности, Label, Frame.

Можно ли узнать, что они таковыми являются во время выполнения?

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

Option Explicit

Private Sub Form_Load()
    Dim ctl As Control
    For Each ctl In Me.Controls
        If TypeOf ctl Is Label Then
            Debug.Print ctl.Name & "=" & vbTab & ctl.Caption
        ElseIf TypeOf ctl Is TextBox Then
            Debug.Print ctl.Name & "=" & vbTab & ctl.Text
        ElseIf TypeOf ctl Is CommandButton Then
            Debug.Print ctl.Name & "=" & vbTab & ctl.Caption
        End If
    Next
End Sub


Или просто перечисление контролов на форме

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

Option Explicit

Private Sub Form_Load()
    Dim ctl As Control
    For Each ctl In Me.Controls
            Debug.Print ctl.Name
    Next
End Sub


[Eugenio]

Можно просто:

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

TypeName(ctl)

[alibek]

Если типов немного, то лучше использовать TypeOf, тогда исключаются опечатки.