Using Win32 functions in Visual FoxPro Image Gallery
Code examples:
Using the NetMessageBufferSend to send messages on the network
How to print picture stored in enhanced-format metafile (*.emf)
Drawing a window caption using the DrawCaption routine
How to play AVI file on the _screen
How to display a user-defined icon in the MessageBox dialog
How to put a horizontal text scrolling on the form (a news line)
Transparent Menu Class (requires VFP9)
Creating a console window for Visual FoxPro application
GDI+: saving image of FoxPro form to graphics file (BMP, GIF, JPG, PNG, TIF)
Starting an external application in VFP using WinExec
Detecting changes in connections to removable drives (VFP9)
How to create non-blocking Winsock server
How to print FoxPro form -- II
How to put a vertical text scrolling on the form (a movie cast)
Storing content of the Clipboard to a bitmap file
How to create MD-5 and SHA-1 hash values from a string
Scanning the hierarchy of child windows down from the main VFP window
How to draw custom Window Caption on FoxPro form
Using Month Calendar Control (VFP9, Comctl32.dll)
How to display the Properties dialog box for a file (ShellExecuteEx)
Obtaining a handle to the desktop associated with the calling thread
Reading and setting the priority class values for the current process and thread
Running MSDOS Shell as a child process with redirected input and output (smarter RUN command)
Starting external program from VFP and waiting for its termination
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. 09.00.000.2412) 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:
      Password:
     
     
      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: 108  
    Listed functions:
    CallWindowProc
    CreatePopupMenu
    GetSystemMenu
    GetWindowLong
    GlobalAlloc
    GlobalFree
    GlobalSize
    InsertMenuItem
    WindowProc
    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  
    FreeTranslation.com 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?

    Thanks,

    JETimms
    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-2013 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.1.55-log), the Open Source standard SQL database, AceHTML Freeware Version 4, freeware HTML Editor of choice.   Hosted by Korax Online Inc.
    Last Topics Visited (50.16.108.167)
    3 sec.Example: 'Retrieving information about the main VFP window'
    13.5 min.Example: 'How to enumerate, add and delete shares on the local computer (WinNT/XP)'
    13.55 min.Function: 'FatalAppExit'
    Function group: 'Error Handling'
    1.05 hrs.Function: 'GetConsoleWindow'
     Example: 'How to access a file using not its name but an alias (hard link)'
     Example: 'One more way to retrieve environment strings'
    2.74 hrs.Example: 'How to print FoxPro form -- II'
     Example: 'Converting an HTTP time/date string to a SYSTEMTIME structure'
    4.37 hrs.
    Function group: 'GDI+ Graphics'
     Example: 'Retrieving IP statistics for the computer'
    Google
    Advertise here!