Comment savoir si un objet est déjà référencé?

Question

Dans certains VBA attachés à une feuille de calcul Excel 2003, je dois utiliser certains objets qui mettent du temps à instancier - donc je veux seulement faire la chose 'set' une fois ...

code que d'écrire une explication!

' Declare the expensive object as global to this sheet 
Dim myObj As SomeBigExpensiveObject 

Private Sub CommandButtonDoIt_Click() 

    ' Make sure we've got a ref to the object 
    If IsEmpty(myObj) Then ' this doesn't work! 
     Set myObj = New SomeBigExpensiveObject 
    End If 

    ' ... etc 

End Sub 

Comment puis-je vérifier si myObj a déjà été défini?

J'ai essayé IsNull (myObj) et IsEmpty (myObj) - les deux ignorent le 'set', quel que soit l'état de myObj. Je ne peux pas faire

if myObj = Nil then 

ou

if myObj = Empty then 

ou

if myObj = Nothing then 

Toutes les idées?

SAL

Answer 1

Cela devrait fonctionner:

If myObj IS Nothing Then 

(notez le « IS ») Si cela ne fonctionne pas, alors il doit y avoir initialisation asynchrone mis en œuvre spécifiquement par cette classe parce que les appels de COM sont synchrones par défaut. Donc, vous devez vérifier le document pour, ou parler au développeur à propos de, la classe Big pour une propriété ou une méthode de synchronisation pour vous permettre d'attendre.