VBA проверить, если объект установлен

Question

VBA проверить, если объект установлен

48

У меня есть глобальная переменная, которая является экземпляром моего пользовательского класса.

Как проверить, установлен ли объект или требуется ли его инициализировать?

Icode4food 13 апр. 2010, в 17:16

Источник

Теги:

vba

ms-access

2 ответа

0

(un) безопасный способ сделать это - если вы в порядке, не используя опцию явным - это...

Not TypeName(myObj) = "Empty"

Это также обрабатывает случай, если объект не был объявлен. Это полезно, если вы хотите просто прокомментировать объявление, чтобы отключить какое-то поведение...

Dim myObj as Object
Not TypeName(myObj) = "Empty"  '/ true, the object exists - TypeName is Object

'Dim myObj as Object
Not TypeName(myObj) = "Empty"  '/ false, the object has not been declared

Это работает, потому что VBA автоматически создаст необъявленную переменную как тип Empty Variant. Это устраняет необходимость в вспомогательном логическом для управления поведением.

Cool Blue 30 окт. 2016, в 04:39

1

Ни у кого не должно быть кода VBA без Option Explicit . Ничего не получает, кроме проблем. Чтобы «переключить» поведение, используйте условную компиляцию.
Andre 03 нояб. 2016, в 11:18
0

@andre, да, справедливо. Я чувствую себя хорошо без этого, потому что я использую венгерскую нотацию для области видимости, но я стараюсь избегать vba в эти дни, если могу. Большая часть того, что я вижу, касается явных деклараций, безопасности имен и избегания страшных вариантов. Каковы ваши основные причины?
Cool Blue 03 нояб. 2016, в 13:10
0

На самом деле я получаю «Ничего» в результате typename, а не «Пусто»
Patrick Lepelletier 14 март 2019, в 11:56

Показать ещё 1 комментарий

Ещё вопросы

Ни у кого не должно быть кода VBA без Option Explicit . Ничего не получает, кроме проблем. Чтобы «переключить» поведение, используйте условную компиляцию.
@andre, да, справедливо. Я чувствую себя хорошо без этого, потому что я использую венгерскую нотацию для области видимости, но я стараюсь избегать vba в эти дни, если могу. Большая часть того, что я вижу, касается явных деклараций, безопасности имен и избегания страшных вариантов. Каковы ваши основные причины?
На самом деле я получаю «Ничего» в результате typename, а не «Пусто»

stakx · Accepted Answer · 2010-04-13T18-21-00.000Z

If obj Is Nothing Then
    ' need to initialize obj: '
    Set obj = ...
Else
    ' obj already set / initialized. '
End If

Или, если вы предпочитаете это наоборот:

If Not obj Is Nothing Then
    ' obj already set / initialized. '
Else
    ' need to initialize obj: '
    Set obj = ...
End If

Я знал, что это должно быть просто, когда я погуглил это и ничего не нашел! Спасибо за вашу помощь!
Поиск ничего не был правильный ответ! ;)
Обратите внимание, что проверка obj Is Nothing - это НЕ то же самое, что проверка IsNothing(obj) ! Спасибо за правильный синтаксис, чтобы проверить это ... не уверен, почему IsNothing() ведет себя по-другому ...
Я считаю, что Not (obj Is Nothing) легче понять, чем Not obj Is Nothing . Мой мозг не знает, что такое «не объект»!
Вы также можете написать: Если obj IsNot Nothing, я нахожу это более понятным, чем остальные. Это также похоже на C # (ojb! = Null)