Как определить - объект или массив объектов?

[djalex777]

На форму добавлен(ы) контрол Label1 или массив Label1. Как узнать один у нас объект или это массив объектов?
Я имею ввиду может есть какая-нибудь функция типа IsArray(). Пока реализовал это через обработку ошибки (On error)

[Денис]

Кем добавлены контролы на форму? при добавлении программно вести учет, кто массив, а кто не-массив. Впрочем, если у вас код такой, что у вас все вперемешку, то обработка ошибок для такого кода - вполне адекватное решение.

[Нырков Сергей]

Сам не проверял, но покнижке Visual Basic 6.0 в примерах Король(очень приличная книжка). Функция typename(var) для массива возвращает имя типа элементов массива плюс пустые скобки, соответственно для одинокой переменной только имя типа без скобок
Нырков Сергей

[Денис]

Сам не проверял, Функция typename(var)

Смотри, для контролов эта функция возвращает имя класса (например для кнопки это "CommandButton") для массивов контролов, она возвращает значение "Object"
Кидаешь на форму массив кнопок btn1, кнопку btn2, ярлык lbl1. Вот такой код копируешь в форму:

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

Private Sub Form_Load()

Debug.Print TypeName(btn1) 'покажет: Object
Debug.Print TypeName(lbl1) 'покажет: Label
Debug.Print TypeName(btn2) 'покажет: CommandButton

End Sub


Вердикт: must use.

[Нырков Сергей]

По книжке ответы в примере ожидались несколько другими,но после проверки вынужден соглиситься с Вами. В VB еще есть функция vartype(var) которая тоже отличает массив от немассива Нырков Сергей

[Нырков Сергей]

С третьей стороны, гораздо удобней и проще добавлять элементы управления не в массив, а в коллекцию controls.Add(typeControls, nameControls)статья [Динамическое добавление элементов управление] на этом сайте VBStreets (не сумел прицепить её к ответу) Нырков Сергей