Creating Objects

[md_huhn]

In my program, when the user presses a start button, I create an object of an activeX.dll. During the run of the program, the user is allowed to see a form or not see a form that is part of the dll. The problem is, I need to know how to determine if I have already created the object or not.

My code is something like this:

Set ObjServer = CreateObject("myproject.clsMyClass")
objServer.StartProgram


When the clien app is loaded, this above code does not occur unless they want to start the process. However, they can just choose another button which will show a form in that DLL. the code is this


if objserver has been set then
Objserver.ShowLogForm
Else
Set ObjServer = CreateObject("MyProject.clsMyClass")
ObjServer.ShowLogForm
end if


I need to know if the object was created yet?

[seoptimizer2001]

Will this work?

If obj = Nothing Then
'    CreateObject
Else
'it is already created
End if

[darre1]

I'm not 100% about this but.......

I think if you use GetObject instead of CreateObject then it attempts to create an instance of an object that is already being used in memory (by any program), if this fails, then there is no instance of that object in memory so use CreateObject.

Thats the theory anyhoo.


darrel.

[md_huhn]

That works. I was trying to use if obj = nothing instead of if obj IS NOTHiNG.

Thanks alot.

M

[Cander]

darre1 - GetObject gets the latest instance of an object/class.

[darre1]

cander,

that's exactly what i just said, only i used more words, bad english, more sentences and lots of extra bits to exercise my fingers.

[Cander]

LOL