On Fri, 2009-10-16 at 17:44 -0700, bbb888 wrote: > I can get an exit code from a form shown with rtn = fm.ShowDialog() correctly > if the user uses an in-form exit such as a exit button : > > > PUBLIC SUB btExit_Click() > > ME.Close(60) > > END > > > > But if the user clicks on the [X] in the titlebar all I get is 0 in rtn. > > > Is there a way to trap the exit in the form?
Create a new project. Add Button1 to FMain. Create a new form called Form1 <--- Check "Dialog box management" when you create it. That will create the support code you need next time you need this feature. Replace the code in the forms as described below. You will get 50 returned into nR if the cancel button is pressed, 150 if OK is pressed, and 100 if the closebox is clicked. ' *********************************************** ' Paste this into FMain, replace what's there ' *********************************************** ' Gambas class file PUBLIC SUB _new() END PUBLIC SUB Form_Open() END PUBLIC SUB Button1_Click() DIM nR AS Integer DIM f AS NEW Form1 nR = f.Run() DEBUG nR END ' *********************************************** ' Paste this into Form1, replace what's there ' *********************************************** ' Gambas class file PRIVATE SomeValue AS Integer PUBLIC SUB Run() AS Integer ME.ShowModal RETURN SomeValue END PUBLIC SUB btnOK_Click() SomeValue = 150 ME.Close END PUBLIC SUB btnCancel_Click() SomeValue = 50 ME.Close END PUBLIC SUB Form_Open() END PUBLIC SUB Form_Close() IF SomeValue = 0 THEN SomeValue = 100 ENDIF END ------------------------------------------------------------------------------ Come build with us! The BlackBerry(R) Developer Conference in SF, CA is the only developer event you need to attend this year. Jumpstart your developing skills, take BlackBerry mobile applications to market and stay ahead of the curve. Join us from November 9 - 12, 2009. Register now! http://p.sf.net/sfu/devconference _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user