How to close a VB6 exe?

Hi,

I wrote a simple form exe to AutoCAD 2002. How can I close the program clicking the upper right corner "x" button?
I do not why, but now when i click to the upper right corner "x" button, the form become hidden and the exe still running.
Can anybody help me?

Paul

 

Hi Paul

Use 'Form_Terminate' event...

Cheers

 

Hi,Juerg

I have tried this but the close button still not close the program just hide the form.
Private Sub Form_Terminate()
End
End Sub

I have made a Command button and it close the exe.
Private Sub Command1_Click()
End
End Sub

Should I set something in form properties to make the close button exit my program?

Paul

 

You don't need any specific code to make the X button work.

Do you have some specific code that minimizes or hides the window?

Did you put anything in the Form_QueryUnload event. If you set the Cancel value to something other than zero then the app will not quit.

You could put some code in all the events that fire when the app is closing (Unload, QueryUnload, Terminate, Deactivate) and put break points on them and then trace through the sequence when you click the close button. Compare the result with an application where the X button works.

Typically this problem happens when some code is still executing at the time the application is trying to quit (like some code in a LostFocus event).

Greg

 

I’m referring to the paragraph “Beware the One Form†of Rod Stephens’s “Bug proofing Visual Basicâ€, just to suggest you a possible cause

he says: “when you define a form named MyForm, VB creates a template that you can use to make any number of forms of this type†as in: Set frm = New MyForm

“VB also creates a single special instance of the type MyForm that has the name MyForm†i.e. there are 2 MyForm + your code instance frm : MyForm template, MyForm special instance made by VB and your personal instance frm

A code like the following

Dim frm as MyForm
Set frm = New MyForm
MyForm.Caption = “abcâ€
frm.show

“sets the caption for the special instance named MyForm instead†of frm and “as if this were not confusing enough, this code has also realized two copies of the form: one referenced by the frm variable and the original form named MyForm. If you close all of the visible forms after running this code, the special form named MyForm will still be running, even though it was never displayed.â€

He explains some other problems, which can be avoided by using “Me.“ instead of “MyForm.†whenever possible

 

Hi tothpal ...

You test this:

Private Sub Form_Unload()
End
End Sub

Un saludo de SpeedCAD...
CHILE
FORO: http://www.hispacad.com/foro

 

I always unload all my forms(objects) when done
Might be overkill in the Unload event but...I know
it's dead...

Unload Form1
Unload Form2
ect....

 

Thanks a lot all of you!

I have tried all what you suggested and the

Private Sub Form_Unload()
End
End Sub

works fine, the program exit.

Paul

 

Be sure to set your acad application object to nothing
in that same event.

Private Sub Form_Unload()
Set acadapp = nothing
end sub.

 

IMHO, if you have to put an END statement in then there is something wrong with another part of your code. In the long run I think you would benefit from figuring out what that is.