Проверка наличия свойства у элементов управления

[t116]

Предположим на форме есть несколько ЭУ. Некоторые из них имеют свойство "Caption". Мне нужно обработать все элементы, содержащие это свойство.

Поясните как можно определить, есть ли у элемента определенное свойство?

[alibek]

Просто обращайся к нему. Если произойдет ошибка, значит такого свойства нет.

[Хакер]

t116
ЭУ стандартные, или из ActiveX?

Можно так, как сказал Алибек. Если нужна скорость, есть и иной путь.

[t116]

Просто обращайся к нему. Если произойдет ошибка, значит такого свойства нет.

Я пока так и делаю, но мне не очень нравится такой метод.

t116
ЭУ стандартные, или из ActiveX?

ЭУ стандартные.

Если нужна скорость, есть и иной путь.

Какой?


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

[Viper]

t116, так тебе надо перебрать все Label'ы на форме что-ли? Действительно, можно проще! TypeName, например использовать.

[t116]

t116, так тебе надо перебрать все Label'ы на форме что-ли? Действительно, можно проще! TypeName, например использовать.

label'ы, checkbox'ы, optionbox'ы, фреймы, текст боксы и т.д.

[Atoman]

Может тебе такое решение подойдёт.

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

Private Sub Command1_Click()
Dim Cont As Control
    For Each Cont In Me.Controls
        If TypeOf Cont Is CommandButton _
        Or TypeOf Cont Is Frame _
        Or TypeOf Cont Is Label _
        Or TypeOf Cont Is OptionButton _
        Or TypeOf Cont Is CheckBox Then
            Cont.Caption = MonthName(3)
        End If
    Next Cont
End Sub

[alibek]

Хоть я тоже предпочитаю TypeOf, но для полноты добавлю, что есть и TypeName.

[t116]

Atoman
Твое решение мне подходит.


Спасибо всем!