Using Win32 functions in Visual FoxPro Image Gallery
Code examples:
How to change display settings: screen resolution, screen refresh rate
Adding and deleting Scheduled Tasks using NetScheduleJob API functions
Custom GDI+ class
Capturing keyboard activity of another application with the Raw Input API (VFP9)
Converting Unicode data from the Clipboard to a character string using a given code page
Establishing connection using the SQLDriverConnect
Custom FTP Class for Visual FoxPro application
Detecting changes in connections to removable drives (VFP9)
Winsock: sending email messages (SMTP, port 25)
How to create non-blocking Winsock server
Splash Screen for the VFP application
How to print a bitmap file
GDI+: copying to the Clipboard (a) image of active FoxPro window/form, (b) image file
Custom HttpRequest class (WinHTTP)
Custom HttpRequest class (WinINet)
Enumerating raw input devices attached to the system (keyboard, mouse, human interface device)
How to activate Windows Calculator
Peer-to-peer LAN messenger built with Mailslot API functions
Sending email messages with Simple MAPI
How to create MD-5 and SHA-1 hash values from a string
Enumerating data formats currently available on the clipboard
How to put a vertical text scrolling on the form (a movie cast)
Displaying animated images on FoxPro form with BitBlt and StretchBlt functions
Displaying bitmap using the AlphaBlend function
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: 139  
    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.17.109.248)
    33.57 min.Function: 'GetUserNameEx'
    Function group: 'System Information'
    33.62 min.Example: 'How to remove a directory that is not empty'
    33.68 min.Example: 'How to delete IE cookies, clear IE history and delete files in Temporary Internet Files directory'
    3.2 hrs.Example: 'Using InternetGoOnline function'
     Example: 'Retrieving configuration information for the specified workstation (Win2000/XP)'
    6.89 hrs.Example: 'Retrieving the priority class for the current process'
     Example: 'Retrieving the name of the network resource associated with a local device'
    14.21 hrs.Example: 'Custom HttpRequest class (WinHTTP)'
     Example: 'Playing WAV sounds simultaneously'
    17.3 hrs.Example: 'Storing the environment strings in cursor'
    Google
    Advertise here!