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

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
BOO
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 126
Зарегистрирован: 06.09.2003 (Сб) 14:23
Откуда: Саратовская обл. г.Энгельс

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

Сообщение BOO » 24.11.2003 (Пн) 22:38

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


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

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

mad_Max
Бывалый
Бывалый
 
Сообщения: 203
Зарегистрирован: 15.09.2002 (Вс) 21:17
Откуда: Russia, Cherepovets

Сообщение mad_Max » 25.11.2003 (Вт) 0:21

Попробуй обращаться к камому-нибудь свойству объекта (например, 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
Постоялец
Постоялец
 
Сообщения: 739
Зарегистрирован: 25.01.2002 (Пт) 11:03
Откуда: Россия, Ижевск

Сообщение Vi » 25.11.2003 (Вт) 7:39

Что ты паникуешь?! Напиши, как объявляется перемнная 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...
Vita
Выше головы не прыгнешь, ниже земли не упадешь, дальше границы не убежишь! (с) КВН


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot и гости: 8

    TopList