VBA sprawdź, czy obiekt jest ustawiony

Question

Mam zmienną globalną, która jest instancją mojej niestandardowej klasy.

Jak sprawdzić, czy obiekt jest ustawiony lub czy muszę go zainicjować?

Answer 1

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

---

Lub, jeśli wolisz to na odwrót:

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

Answer 2

The (nie) bezpieczny sposób to zrobić - jeśli są ok, z nie za pomocą opcji jednoznacznie - jest. ..

Not TypeName(myObj) = "Empty" 

Zajmuje się również sprawą, jeśli obiekt nie został zadeklarowany. Jest to przydatne, jeśli chcesz po prostu skomentuj deklarację wyłączyć pewne zachowania ...

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 

To działa, ponieważ VBA zostanie automatycznie instancję zmiennej niezgłoszonej jako pusty typu Variant. Eliminuje potrzebę dodatkowej funkcji Boolean do zarządzania zachowaniem.