[vb6] On Form Unload, Close App

[ElectronicRealm]

I have an app, which has 3 forms, but only 1 shows at a time, so I have to have the others hidden. When you click the x close button, the app dissapears, but its still running in the task manager. What i need is code for when you click the x close button, it unloads all the forms and closes down properly.

Thankyou in advance.

[elliot]

For Each frm In Forms
        Unload frm
        Set frm = Nothing
Next frm

[James Rose]

Also I always use the keyword "END" - use after the code Elliot posted.

[ElectronicRealm]

cheers guys

[ElectronicRealm]

not sure where to put this

  Quote

Private Sub Form_Load()

Dim frm As Form

For Each frm In Forms

      Unload frm

      Set frm = Nothing

Next frm

End

End Sub

its working, but the program just closes when the form opens, i know i'm not supposed to put it in form load, but where?

[Civilian]

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

:p

stick that in the main form, as when that one gets closed it will close all other forms and end the program.

[ElectronicRealm]

hats off, thankyou

[ElectronicRealm]

or not :(

[azcodemonkey]

Doesn't that code need to be in QueryUnload? It's bee a while since I've touched VB classic.

[x2cube]

  ElectronicRealm said:

or not :(

put this in your main form:

private sub form_unload(cancel as integer)
end
end sub

or this:

private sub form_unload(cancel as integer)
form2.unload
form3.unload
end sub

[area91]

Try using .net. Its much, much better.

[dougkinzinger]

Have to agree there, there are thousands of improvements.

[ElectronicRealm]

thanks all, got it now :)

Private Sub Form_Unload(cancel As Integer)
    Dim frm As Form
         For Each frm In Forms
          Unload frm
          Set frm = Nothing
         Next frm
    End
End Sub

a mixture of the posts, i'm am planning on trying .net if i can get an educational copy from college, otherwise I cant afford to use it.

[bangbang023 Veteran]

  area91 said:

Try using .net. Its much, much better.

yeah thats going ot help him with his project :rolleyes:. He chose VB6 and that's what he wants help with. If you can't offer help, don't just go throwing out what else to use. It's useless to the thread starter.

btw, I think weenur is right.

[hash]

  ElectronicRealm said:

or not :(

the problem was that you had two Form_Unload's... but since you got it fixed now it doesnt matter

you can put the code in either Form_Unload or Form_QueryUnload... it doesnt matter.

[x2cube]

  hash said:

the problem was that you had two Form_Unload's... but since you got it fixed now it doesnt matter

you can put the code in either Form_Unload or Form_QueryUnload... it doesnt matter.

I've had my projects not run because form_unload doesn't have (cancel as integer)

[janej]

Hi

Found this somewhere on the web, and it works on my VB6-applications.

Using the Close Button

This is extremely easy, but something you just can't seem to put your finger on.

Here is the code for knowing when that little X is pushed. It should be self-explainatory!

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

End

End Sub