Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Running Code with SAVE AS Menu Item
Message
 
À
01/06/2005 21:33:55
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de menu & Menus
Versions des environnements
Visual FoxPro:
VFP 8 SP1
Database:
Visual FoxPro
Divers
Thread ID:
01019215
Message ID:
01019247
Vues:
17
>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.
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform