Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Running Code with SAVE AS Menu Item
Message
 
To
01/06/2005 21:33:55
General information
Forum:
Visual FoxPro
Category:
Menus & Menu designer
Environment versions
Visual FoxPro:
VFP 8 SP1
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01019215
Message ID:
01019247
Views:
16
>I would like to be able to run one VFP command like:
>
>STORE "Y" TO my_mvar
>
>any time that I click on the
>
>FILE / SAVE AS
>
>menu item. Here are framents of the menu in question:
>
>DEFINE PAD _msm_file OF _MSYSMENU PROMPT "\<File" COLOR SCHEME 3 ;
&gt;	NEGOTIATE  LEFT, NONE ;
&gt;	KEY ALT+F, "" ;
&gt;	MESSAGE "Creates, opens, saves, prints files or quits Visual FoxPro"
&gt;
&gt;ON PAD _msm_file OF _MSYSMENU ACTIVATE POPUP _mfile
&gt;
&gt;DEFINE BAR _mfi_savas OF _mfile PROMPT "Save \<As..."
&gt;
>
>Thanks!
>Terry :)

Something like this:
......

DEFINE BAR 2 OF _mfile PROMPT "Save \<As..." ;
	PICTRES _mfi_savas ;
	MESSAGE "Saves changes to the current file with a new name"

ON SELECTION BAR 2 OF _mfile MyTest

PROCEDURE MyTest
   STORE "Y" TO my_var
   SYS(1500,"_MFI_SAVAS","_MFILE")
ENDPROC
(not tested)
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
Previous
Reply
Map
View

Click here to load this message in the networking platform