[vb] Hoe zien of een object geladen is ?

[XTerm]

Ja, hoe kan je dit checken bijvoorbeeld

Print "Hello"
Load D(1)
Print "loaded D->1"
Print FUNCTIE(D(1))
Unload D(1)
Print FUNCTIE(D(1))

IsNull geeft bij beiden false, isobject bij beiden true.

[Verwijderd]

code:

Public Function IsInitalized(ByRef Obj As Object) As Boolean
Dim strTmp As String
On Error Resume Next
    strTmp = Obj.Name
    IsInitalized = (Err.Number <> 340)
On Error GoTo 0
End Function

[Basszje]

Probeer het eens met isempty ()

[XTerm]

De isEmpty werkt niet, maar die functie wel.
Bij deze bedankt

[johnwoo]

De 'officiele/juiste' manier:

code:

If Object Is Nothing Then
  Debug.Print "Object is niet geladen"
Else
  Debug.Print "Object is geladen"
End If

[Verwijderd]

Op woensdag 17 oktober 2001 20:52 schreef johnwoo het volgende:
De 'officiele/juiste' manier:

Testen voor je post, want dat werkt niet.