Еще раз о проверке объекта

[BOO]

Я задавал уже этовопрос но работающих примеров и советов не пришло!


поэтому спустя время повторю:

Мне надо проверить существует ли объект. Но тут как я понял есть "нюанс":
If object is onthing then...
работает только если обект один. Т.е он не действует на группу объектов:
if Prep(10) is nothing then .... не работает???!!!! Почему!!!Я идиот! Убейте меня, кто-нибудь! Ну и самое главное как сделать чтобы работало!!!!????

[mad_Max]

Попробуй обращаться к камому-нибудь свойству объекта (например, Name). Если произойдет ошибка - объекта нет.

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

Function IsNothing(obj as Object) As Boolean
Dim tmpStr as String
On Error GoTo objUnreal
tmpStr = obj.Name
IsNothing = False
Exit Function
objUnreal:
IsNothing = True
End Function

Эта функция возвращает True, если объекта нет и соответственно наоборот. Метод не совсем красив, но работает.

[Vi]

Что ты паникуешь?! Напиши, как объявляется перемнная Prep, и ты все узнаешь.

Если Dim Prep(100) As Object, то проверка If Prep(10) Is Nothing Then ...

Если Dim Prep(100) As Variant, то проверка If IsObject(Prep(10)) Then с последующим возможным If Prep(10) Is Nothing...