Using Win32 functions in Visual FoxPro Image Gallery
Code examples:
Adding user-defined items to the Control Menu of VFP form (requires VFP9)
Attaching menu to a top-level form
Confining Windows calculator inside the VFP main window
Drawing a rectangle using Windows regular edges and borders
Enumerating global and local group accounts on a server (WinNT/XP/2K)
Extracting the name and extension parts of a path string
Finding parameters for the region specified
Finding the path to the VFP executable running
How to drag a Form not using its Titlebar or Caption
Testing an ODBC connection for supporting specific functionality
Using the CreateFile
Displaying printer-properties Property Sheet for the specified printer
Displaying the drive type value
How to retrieve version information for the specified file
Loading a string resource from an executable file
Obtaining names of local and global groups for current user (WinNT/XP/2K)
Using Extended MessageBox() Class
Winsock: retrieving the host information corresponding to a network address
Converting twips to pixels and vice versa
Displaying OS Memory Status
How to initiate System shutdown
Obtaining the bounding rectangle for the specified device context
Placing a button on the VFP form as a new child window
Retrieving file information for the VFP executable running
Adding user-defined items to the Control Menu of VFP form (requires VFP9)

User rating: 0/10 (0 votes)
Rate this code sample:
  • ~
More code examples    Listed functions    Add comment     W32 Constants      Translate this page Printer friendly version of this code sample
Before you begin:
User-defined items can be added to the Control Menu of any VFP form. In VFP9 it is also possible to link such menu items to a method of the form.

This code sample is a result of fast and productive discussion on UT. Many thanks to Carlos Alloatti.

Note: VFP9 SP1 is required. I have found that on older VFP9 versions (e.g. the Close menu item may not close the form had the Control Menu been modified.

For more VFP9 BINDEVENT() examples see also:
  • Adding icon to the systray (requires VFP9)
  • How to block the PrintScreen key
  • Dragging files from Explorer window and dropping them on FoxPro control (requires VFP9)
  • Transparent Menu Class (requires VFP9)

    See also:
  • How to hot-track menu item selection in top-level form
  • Transparent Menu on top-level form
  • Using FoxTray ActiveX control: System Tray Icon and menu attached to VFP form
  • Adding icon to the systray (requires VFP9)

      Members area. Log in to view this example.
      User name:
      Forgot your password?
      Sign up for
    the Membership

    User rating: 0/10 (0 votes)
    Rate this code sample:
    • ~
    6127 bytes  
    Created: 2006-05-08 13:12:49  
    Modified: 2007-01-06 18:15:52  
    Visits in 7 days: 77  
    Listed functions:
    Printer friendly API declarations
    My comment:
    The InsertMenu function has been superseded by the InsertMenuItem function. You can still use InsertMenu, however, if you do not need any of the extended features of InsertMenuItem (e.g. inserting popups).

    Using very similar means, Control Menu items can be modified, disabled or removed.
    Word Index links for this example:
    Translate this page:
      Spanish    Portuguese    German    French    Italian offers instant, free translations of text or web pages.
    User Contributed Notes:
    A.M. | 2006-09-24 08:17:58
    Burkhard Stiller noticed that the user-defined control menu items disappeared upon the form's BorderStyle property changed during runtime.
    jetimms | 2006-09-29 16:51:50
    The are nice examples, except I can't figure out how to get the menu items to do anything. In other words, how do I get "Option 1" to open another form, or run a .prg?


    A.M. | 2006-09-30 08:58:11
    Inside the code, PROCEDURE OnMenuItemClicked clearly shows how to do that. Note that this is only available in VFP9 due to its improved BINDEVENT() function.

    VFP8 displays UDF menu items but is not capable to link them to UDF procedures or methods without using external libraries.
    JETimms | 2006-10-02 08:32:16
    Oi vey, sorry for the previous complaint. I didn't know this was a subscription site. I'll sniff the answer out elsewhere.

    Great site, otherwise. It helped get me a quarter of the way finished with my project.

    I'll try and convince my manager to get us an account.
    Christophe Chenavier | 2007-02-25 02:29:32
    Well done,

    But in your example, if we replace oForm.Visible=.T.
    with oForm.Show(1), the user-defined control menu items disappeared.

    Question : Why that code does not work with modals forms ?
    runtimedll | 2007-04-30 02:14:15
    Put VFP runtime Dll In your Program Forld.

    Copyright 2001-2018 News2News, Inc. Before reproducing or distributing any data from this site please ask for an approval from its owner. Unless otherwise specified, this page is for your personal and non-commercial use. The information on this page is presented AS IS, meaning that you may use it at your own risk. Microsoft Visual FoxPro and Windows are trade marks of Microsoft Corp. All other trademarks are the property of their respective owners. 

    Privacy policy
    Credits: PHP (4.4.9), an HTML-embedded scripting language, MySQL (5.6.39), the Open Source standard SQL database, AceHTML Freeware Version 4, freeware HTML Editor of choice.   Hosted by Korax Online Inc.
    Last Topics Visited (
    13 sec.Function: 'GetTickCount'
    21 sec.Example: 'Dragging files from Explorer window and dropping them on FoxPro control (requires VFP9)'
    32 sec.Function: 'PathMakeUniqueName'
    Function group: 'Shell Functions'
    43 sec.Function: 'LoadImage'
    Function group: 'Resource'
    52 sec.Function: 'WinExec'
    Function group: 'Process and Thread'
    1.03 min.Banners
    1.25 min.Function: 'gethostbyname'
    Function group: 'Windows Sockets 2 (Winsock)'
    1.42 min.Function: 'DragDetect'
    Function group: 'Mouse Input'
    1.57 min.Function: 'GetPrintProcessorDirectory'
    Function group: 'Printing and Print Spooler'
    1.82 min.Function: 'OpenEvent'
    Advertise here!