What is the code to quit my program I created?

[Avatarp]

I just finished building my application that I built in VB6. I have an Exit button on the main form that unloads the main form. I have Unload me code already. What is the line of code that ends the running of my code?

[crptcblade]

To unload the form you are currently working with, you would use

Unload Me

and generally people like to use this code in the form's unload event to clean up after multiple forms...

Dim frm As Form
 
    For Each frm In Forms
        Unload frm
        Set frm = Nothing
    Next
 
    End

[ice_531]

if u mean unload the form just use

Unload Me

[Avatarp]

I have done that already. But VB6 still stays in run mode. So what else do I need to end my run mode?

[ice_531]

Unload Me
End


usually ppl dont use End, but just try it after the unload me

[James Stanich]

Originally posted by Avatarp
I have done that already. But VB6 still stays in run mode. So what else do I need to end my run mode?

Read above and you will see the answer has been already posted...

Dim frm As Form
 
    For Each frm In Forms
        Unload frm
        Set frm = Nothing
    Next
 
    End

[Avatarp]

End works...LOL that was easy

[James Stanich]

Originally posted by Avatarp
End works...LOL that was easy

END

This is the most unprofessional, unreliable way of exiting a program...

[ice_531]

i told him to try Unload Me first, but didnt seem to work for him so i said End

[nemaroller]

So now we know somethin in the program isn't ending properly... an unreleased resource...

[James Stanich]

Originally posted by nemaroller
So now we know somethin in the program isn't ending properly... an unreleased resource...

Huh ?

[ice_531]

i think hes saying, since Unload Me isnt working... part of the program is still running .....right?

[nemaroller]

yes

[James Stanich]

And using this code doesn't work for you?

Dim frm As Form
 
    For Each frm In Forms
        Unload frm
        Set frm = Nothing
    Next
 
    End

This is how I end all my apps...

[Pc_Madness]

If your have more than 1 form still loaded in your project, then you need to unload that as well.

[James Stanich]

The code I posted will unload all the forms !!!

[ice_531]

if his app still wasnt ending And he placed teh code in the right place, something was still running

just not sure what tho

[Pc_Madness]

Originally posted by James Stanich
The code I posted will unload all the forms !!!

Yeah.. or you could just do
Unload Form1
Unload Form2.

Alot less code if he only has 2 forms.

[James Stanich]

If this code is place in any form in the project, all forms and form levels variables will be destroyed... this would in turn release all memory being consumed, and close the application... I do not understand the argument here...

[MidgetsBro]

James is correct. His code will unload all forms and clear up the memory they take, but if there are any loops running, it won't stop them. You will need to stop the loop before you can exit the program and release all the resources it's taking.

[James Stanich]

Loops running at time of close? You mean a crash in the loop?

[MidgetsBro]

No, I mean if you put in a loop somewhere that is running, say you put this on a form, then try to exit the program using your code, it will close the form, but it will still be in memory:

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

[James Stanich]

But wouldn't "i" be terminated, thus terminating the loop?

[MidgetsBro]

Nope. Try it. I just did, and it just keeps printing to the debug window, although the app has closed.

[James Stanich]

Originally posted by MidgetsBro
Nope. Try it. I just did, and it just keeps printing to the debug window, although the app has closed.

That's amazing. The varaibles should be destroyed but are not. Scary thought....

[MidgetsBro]

Because you are just setting the forms to nothing, you aren't setting any variables to nothing. You would have to loop through all your variables you declared earlier in the program and set each one to nothing, if that's even possible.

[James Stanich]

Originally posted by MidgetsBro
Because you are just setting the forms to nothing, you aren't setting any variables to nothing. You would have to loop through all your variables you declared earlier in the program and set each one to nothing, if that's even possible.

By setting the form = nothing, I was lead to belive that the form level variables were alos destroyed. Was I mislead?

[ice_531]

well what would be so bad about using End in this situation?
or couldt it possibly cause an error

[MidgetsBro]

Either that, or the programmers of VB intended for that to happen, but then they never implemented it into the language...

The best way to do this is to check a "Quitting" variable in each loop that might run for any length of time that is user noticable, an if it's set to true in the form_QueryUnload event, then in the loops you can exit the loop if the variable is set to true.

'General Declares
Dim Quitting As Boolean
Dim LoopQuitSuccessful As Boolean
 
Private Sub EndlessLoop()
Do
  Debug.Print "Doing Nothing"
  If Quitting Then
    LoopQuitSuccessful = True
    Exit Loop
  End If
  DoEvents
Loop
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer)
Quitting = True
Do Until LoopQuitSuccessful
  DoEvents
Loop
End Sub

[MidgetsBro]

End won't cause an error, but it doesn't free up memory either. It just quits the process, but leaves everything it used, instead of cleaning it up. If the user ends the program like this numerous times in a single session (like if they don't shut their computer down often) then they will run out of resources and be forced to shut down or restart the computer.

[James Stanich]

Since we are beating this to death here, what about global variables, is there a proper way of releasing that memory?

[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*

[ice_531]

oh ok lol
end.Bad = True

[James Stanich]

Originally posted by ice_531
oh ok lol
end.Bad = True

At least someone learned something in all this babble...

[ice_531]

lol
i learn something new every day on this forum

[Pc_Madness]

Originally posted by James Stanich
At least someone learned something in all this babble...

I learnt something as well. Don't listen to myself.

[wpearsall]

Originally posted by MidgetsBro
End won't cause an error, but it doesn't free up memory either. It just quits the process, but leaves everything it used, instead of cleaning it up. If the user ends the program like this numerous times in a single session (like if they don't shut their computer down often) then they will run out of resources and be forced to shut down or restart the computer.

DAMMIT....

No wonder my App keeps freezing me up..

THANKS DOOD!

[wpearsall]

Also,

i put the code above (for each frm) in my "Unload" statement?

[James Stanich]

What i usually do is create a global sub in a module which when I want to exit any form I call like this

Call GOODEXIT

Then the subroutine

Sub GOODEXIT()
 
Dim frm As Form
 
    For Each frm In Forms
        Unload frm
        Set frm = Nothing
    Next
 
    End
 
End Sub

[wpearsall]

dont u need

Public

at the top, and

End Sub

at the bottom?