Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: Glen Villar
  Where is Glen Villar?
 Palayan City
 Philippines
 Glen Villar
 To: vaishali maske
  Where is vaishali maske?
 mumbai
 India
 vaishali maske
 Tags
Subject: RE: defining menu
Thread ID: 209470 Message ID: 209475 # Views: 1 # Ratings: 0
Version: Visual FoxPro 8 Category: Menus
Date: Monday, December 29, 2008 7:45:46 AM         
   


> Hi,
>
> I want to define my own menu in my project as per following:-
> 1)data entry
> a)master entry
> b)emplyoee entry
> c)product entry
> d)catelog entry
>
> 2)reports
> a)emplyoee report
> b)product report
> c)catelog report
>
> 3)exit
>
> can you send me exact code for this.
> Thanks,
> vaishali maske

The following code is generated automatically using VFP Menu Designer.
*       *********************************************************
*       *
*       * 12/29/08            TESTMENU.MPR              14:43:08
*       *
*       *********************************************************
*       *
*       * Author's Name
*       *
*       * Copyright (C) 2008 Company Name
*       * Address
*       * City,     Zip
*       *
*       * Description:
*       * This PROGRAM was automatically generated BY GENMENU.
*       *
*       *********************************************************


*       *********************************************************
*       *
*       *                      Menu Definition
*       *
*       *********************************************************
*

Set Sysmenu To
Set Sysmenu Automatic

Define Pad _2jo0vjqid Of _Msysmenu Prompt "DATA ENTRY" Color Scheme 3 ;
	KEY Alt+D, ""
Define Pad _2jo0vjqie Of _Msysmenu Prompt "REPORTS" Color Scheme 3 ;
	KEY Alt+R, ""
Define Pad _2jo0vjqif Of _Msysmenu Prompt "EXIT" Color Scheme 3 ;
	KEY Alt+E, ""
On Pad _2jo0vjqid Of _Msysmenu Activate Popup dataentry
On Pad _2jo0vjqie Of _Msysmenu Activate Popup reports
On Selection Pad _2jo0vjqif Of _Msysmenu ;
	DO _2jo0vjqig ;
	IN Locfile("C:\TESTMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is TESTMENU?")

Define Popup dataentry Margin Relative Shadow Color Scheme 4
Define Bar 1 Of dataentry Prompt "Master Entry"
Define Bar 2 Of dataentry Prompt "Employee Entry"
Define Bar 3 Of dataentry Prompt "Product Entry"
Define Bar 4 Of dataentry Prompt "Catalog Entry"
On Selection Bar 1 Of dataentry Do Form MEntry
On Selection Bar 2 Of dataentry Do Form EEntry
On Selection Bar 3 Of dataentry Do Form PEntry
On Selection Bar 4 Of dataentry Do Form CEntry

Define Popup reports Margin Relative Shadow Color Scheme 4
Define Bar 1 Of reports Prompt "Employee Report"
Define Bar 2 Of reports Prompt "Product Report"
Define Bar 3 Of reports Prompt "Catalog Report"
On Selection Bar 1 Of reports Report Form EmpReport
On Selection Bar 2 Of reports Report Form ProdRep
On Selection Bar 3 Of reports Report Form CatRep


*       *********************************************************
*       *
*       * _2JO0VJQIG  ON SELECTION PAD
*       *
*       * Procedure Origin:
*       *
*       * From Menu:  TESTMENU.MPR,            Record:   14
*       * Called By:  ON SELECTION PAD
*       * Prompt:     EXIT
*       * Snippet:    1
*       *
*       *********************************************************
*
Procedure _2jo0vjqig
	Clear Events



(coffee)
DeepLogic Computers & Software / Acer Lending Investor

ENTIRE THREAD

defining menu Posted by vaishali maske @ 12/29/2008 7:31:27 AM
RE: defining menu Posted by Stefan Wuebbe @ 12/29/2008 7:44:54 AM
RE: defining menu Posted by Glenn Villar @ 12/29/2008 7:45:46 AM
RE: defining menu Posted by tushar @ 12/29/2008 8:00:28 AM