how to clear class by self in vb6?

[xiaoyao]

Is there any way to reclaim variables in class1?

Set Me = Nothing 'err here

form1.frm:
dim  a as new class1

a.DelObject
Sub DelObject()
Set Me = Nothing 'err here
End Sub


Sub DoRelease()
    dim class1Objptr as long
   class1Objptr=ObjPtr(Me)
   clear by api with class1Objptr??
End Sub


Private Sub Class_Terminate()
MsgBox "Class_Terminate"
End Sub

[xiaoyao]

why Set C = Nothing,
C.TEST

why Set C = Nothing,
C.TEST

Why can I use the methods in the object when the variables are empty? (Will automatically reinitialize the class object)

Dim C As New Class1

Private Sub Command1_Click()
C.TEST
End Sub

Private Sub Command3_Click()
Set C = Nothing
End Sub

[techgnome]

Yeah, this is a quirk of VB6 thast confuses a lot of people the first time.... so, when you do this::

Dim C As New Class1

causes this:

C.TEST

To be proccessed like this by th compiler:

If C is Nothing Then
   set C = new Class1
End If
C.TEST

So even though you set C to Nothing, the next time you click Command1, it'll get re-crreated. Now.... if you this:

Dim C As Class1

private sub Form_Load()
  set C = New Class1
End Sub

Private Sub Command1_Click()
C.TEST
End Sub

Private Sub Command3_Click()
Set C = Nothing
End Sub

Now it'll operate as you'd expect.

-tg

[xiaoyao]

yes,Dim C As Class1

thank you

[Phill.W]

Here's a "compromise" that gets you as close to VB.Net syntax as VB "proper" will allow:

Dim C as Class1 : Set C = New Class1

Regards, Phill W.

[Elroy]

I use the pre-declared form names all the time, with no problem.

However, to get the COM object uninstantiated when the form unloads, you have to explicitly use that form's pre-declared variable name. Let's say you have a Form1. To get its COM object uninstantiated, you'd do the following:

Private Sub Form_Unload(Cancel As Integer)
    Set Form1 = Nothing
End Sub

And you can't use the "Me" object because that's another reference to this Form1 object. You need to explicitly set that Form1 object variable to Nothing to get the last reference destroyed. And obviously, you need to make sure there aren't any other references that will re-load that COM object.

[xiaoyao]

how to set class1=nothing by api or asm code
some times i need do like this:
form1:

dim classA as new class1
SUB TIEMR1
SET classA =NOTHING
TIMER1.ENABLE=FALSE
END SUB
class1:
sub doCloseMe()
form1.timer1.enable=true
end sub