Checke om et object er nothing

if obj is nothing then
  msgbox "Objektet er tomt"
end if

Størrelse: Len(MyObeject)? Bare en ide, ved ikke om det virker

martin_moth>> Den har jeg prøvet men virker ikke ...sorry

OCP>> virker ikke

Det her virker altså... så der må være noget andet galt med din kode.

    Dim a As Object
   
    If a Is Nothing Then
        MsgBox "Is nothing"
    End If

Måske han mener der ikke er noget i objektet når han siger nothing....

Dim a As Object
   
    If a Is "" Then
        MsgBox "Is nothing"
    End If

Nu er jeg ikke inde i objecter, men kunne være noget i den stil....

Jamen "a is Nothing" returnerer netop hvorvidt objecktet er blevet "sat" til noget eller om det er tomt.

Ok :O)

Ja så blev jeg da ihvertfald klogere :O)

En lille sidebemærkning: Et objekt fra en hjemmelavet klasse kan først bruges når det er blevet initialiseret, ved SET - kommandoen. Indtil da indeholder det Nothing

Fx:
  Dim MitObjekt as MinKlasse
  Msgbox "MitObjekt ER erklæret, men indeholder ingenting endnu..."
  Set MitObjekt = New MinKlasse 'Først nu er MitObjekt <> Nothing

Nothing bruges ofte til at rydde op efter sig, ved at sætte MitObjekt = Nothing, når man er færdig med at bruge det... ("un-initialisere" det)

Jeg lukker.

Øhh - skulle du ikke give points til ocp for et 100% korrekt svar i stedet for at nappe dem selv? Bare nysgerrig, Martin :o)

Martin>> Jeg synes ikke at svaret er tilfredsstillende;
Jeg ønsker en måde hvorpå man checker om et object(hjemmelavet) er instantieret eller ej. Konklusionen må være at hvis du prøver at checke et ikke eksisterende objekt så får du følgelig en fejl og spørgsmålet har ikke affødt en løsning.

Og jeg siger, at svaret fra ocp (18/10-2002 10:30:50) løser præcist dit problem :o)

I al beskedenhed synes jeg også at mit svar var fyldestgørende. Men det kan jo være at det var spørgsmålet jeg ikke forstod. "42" ;-)

"42" ?

"Hitchhikers guide to the Galaxy": Man bygger en kæmpe computer der skal give svaret på hvad meningen med livet er. Den svarer "42" og derfor bliver forskerne enige om at det er spørgsmålet den har misforstået. Man bygger så en endnu større computer til at formulere spørgsmålet og lige som den er ved at være færdig med at formulere det sprænges jorden bort fordi der skal gøres plads til en intergalaktisk motorvej :-)

Deraf også "Level 42"

Ahhhhh :o)

Nu må I gi' mig ret gutter:

Private obj as MyClassObject

Hvis ikke jeg siger:

set obj = new MyClassObject

så vil jeg da få en fejl hver gang jeg spørger/refererer til objektet.

Eller er jeg helt galt på den?

Det vil jeg mene

Jeg kan køre koden her problemfrit:

  Dim myObject As myClass

  If myObject Is nothing Then
    MsgBox "Is nothing"
  End If

  set myObject = new MyClass
 
  If Not myObject Is nothing Then
    MsgBox "Is something"
  End If

Jeg får vist begge beskedder som forventet, får ingen fejl!

Drop "Jeg vil mene" :o)

Ovenstående er svar på dit oprindelige spørgsmål. Hvis du vil undgå fejl når du forsøger at referere et ikke-instantieret objekt, kan du jo skrive:

If Not myObject Is nothing Then
  MyObject.MyProperty = MyValue ' Eller hvad du nu vil med objektet
End IF