Microsoft KB Archive/128117

= How to Close a Form from a Toolbar =

Article ID: 128117

Article Last Modified on 2/12/2000

-

APPLIES TO


 * Microsoft Visual FoxPro 3.0 Standard Edition

-



This article was previously published under Q128117



SUMMARY
This article shows by example how to close a form from a toolbar.



MORE INFORMATION
One of the features of a generic navigation toolbar is the ability to close any selected form. The example provided here obeys the following requirements:
 * The Close button of the toolbar is usable with any active form on the screen.
 * The Close button is independent of the form. The code does not have to be added to the form, and the close button is not an object of the form.
 * The name of the form is not hard coded.

To run this example, copy the code into a program. *********************************************************************  * This sample program defines a toolbar with a generic close button * *********************************************************************

* The instance variable for this toolbar may not have to be public in  * your program. PUBLIC oGenericTool oGenericTool=CREATEOBJECT('mytool') oGenericTool.SHOW

* Executes a form DO FORM GETFILE('SCX','Select the Form','Run')

DEFINE CLASS mytool AS TOOLBAR ADD OBJECT ToolButton AS ToolClose ENDDEFINE

* Code for the command button. This code can be included in a Visual * Class Library DEFINE CLASS Toolclose AS COMMANDBUTTON Height= 51 Width = 54 Name = "Vcrclose" CAPTION = "Close it"

PROCEDURE Click IF TYPE('_screen.ActiveForm')=='O'           IF NOT ISNULL (_SCREEN.ACTIVEFORM) _SCREEN.ACTIVEFORM.RELEASE ENDIF ELSE =MESSAGEBOX("There is no form to close") ENDIF ENDPROC ENDDEFINE

Additional query words: VFoxWin quit

Keywords: kbcode KB128117

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.