Xtreme Visual Basic Talk

Xtreme Visual Basic Talk (http://www.xtremevbtalk.com/)
-   Code Library (http://www.xtremevbtalk.com/code-library/)
-   -   Closing the Main Form , without Closing the Application. (http://www.xtremevbtalk.com/code-library/165601-closing-main-form-closing-application.html)

Csharp 05-06-2004 03:35 PM

Closing the Main Form , without Closing the Application.
 
1 Attachment(s)
Hi guys n gals , i have knocked up a little bit of code which may provide usefull.
i guess most people are aware that if you try closing your Main Form, while trying to leave a second Form open ( ie: Form2.Show , Form1.Close ) , you end up with the Application closing completely. well not anymore ;)
in a Module ( with a Sub Main set as the Start-up object ) ...
Code:
'/// add a module to your application , then set it's Sub Main as your start-up object Imports System.Windows.Forms Module Module1 Sub main() Dim frmMain As New Form1 frmMain.Show() Application.Run() '/// NOTE : i run the application without a start-up Main form. End Sub End Module
in Form1 ( which will load as your default form in this instance ) ...
Code:
Private closeApp As Boolean = True Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click closeapp = False Dim frm2 As New Form2 frm2.Show() Me.Close() End Sub Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing If closeApp Then Application.Exit() End If End Sub
Form2 will now show and Form1 will close without the Application exiting , in form2 , to close the app i put a simple ...
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Application.Exit() End Sub
included is a sample source.


All times are GMT -6. The time now is 07:28 AM.

Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Search Engine Optimisation provided by DragonByte SEO v2.0.15 (Lite) - vBulletin Mods & Addons Copyright © 2017 DragonByte Technologies Ltd.
All site content is protected by the Digital Millenium Act of 1998. Copyright©2001-2011 MAS Media Inc. and Extreme Visual Basic Forum. All rights reserved.
You may not copy or reproduce any portion of this site without written consent.