What is the code to quit my program I created?

Quote:

---

For I = 0 to 500000000
Debug.Print I
DoEvents
Next

---

Well, I put this in a module, call it from a command button, with the next line in Command_click being to unload the form and set it to nothing, which it does even though the loop continues.

But, as soon as the loop finishes... the program ends properly.

Quote:

---

Originally posted by wpearsall
dont u need

VB Code:

Public

at the top, and

VB Code:

End Sub

at the bottom?

---

yes sir. Sorry... I edited my post...:)

OK,,

Unloading all the forms like dat, does it unload modules? Or do u have to do a diff code for those (wanna free as much resources as possible.. since my app restarts like 4 / 5 times in a typical "session" :D

Quote:

---

Originally posted by MidgetsBro
Not sure about globals, as I don't use them often, but if you don't set them to nothing, then I assume they will stay in memory as well... *ponders*

---

This has yet to be determined.... :(

Visual Basic Help:

The End statement provides a way to force your program to halt. For normal termination of a Visual Basic program, you should unload all forms. Your program closes as soon as there are no other programs holding references to objects created from your public class modules and no code executing.

well, my program is closing with the code

for each frm in Forms

and i left the End off of it, to test it, so i guess it closes "In Active" modules.

Quote:

---

Originally posted by James Stanich

VB Code:

Call GOODEXIT
 
 
Sub GOODEXIT()
    .
    .
    .
    End
 
End Sub

---

Not that it would matter, but wouldn't this method leave the return address of the calling procedure on the stack for a few picoseconds before the program's stack space is reclaimed?

:p

Thanks for the replys on my post. I used the end statement to terminate my application and it works fine. But I didn't realize the amount of resources that get used up if you don't clear all variable used. So in the future I use that good exit sub routine to end my applications.

Thanks again

Quote:

---

Originally posted by Mortivan
Not that it would matter, but wouldn't this method leave the return address of the calling procedure on the stack for a few picoseconds before the program's stack space is reclaimed?

:p

---

Damn, that deep....:p

here is what you do if you have a button

Private Sub Command1_Click()

Unload Me

End Sub




http://www.vbforums.com/attachment.p...postid=1213821

make a button, name it Command 1 and put this in the buttons code:

Private Sub Command1_Click()

Unload Me

End Sub

when exiting a program I do the following
since an active timer can trigger a form to re-appear...

VB Code:

Dim Form As Form, timerx As Object     'close all sub forms
      For Each Form In Forms
        For Each timerx In Form
          If TypeOf timerx Is Timer Then
               timerx.Enabled = False
          End If
        Next
        Unload Form
     Next Form

I also wonder about how to 'unreference' ALL references in each form (ie set blaa = Nothing) in case they are still using memory.
or maybe this is done automatically on Unload Form?

/Me is watching this closly :D

The code above works WELL BETTER since my "Mega Usage" Application (What i open over and over in a session) uses timers, and they trigger re-opening on errors ETC :D

:Better Idea's (if any) Will be tested ;)