/* Define these in your 4GL application: */
&SCOPED-DEFINE VK_SNAPSHOT 44
PROCEDURE keybd_event EXTERNAL "USER32.DLL":U:
DEFINE INPUT PARAMETER bVk AS SHORT.
DEFINE INPUT PARAMETER bScan AS SHORT.
DEFINE INPUT PARAMETER dwFlags AS LONG.
DEFINE INPUT PARAMETER dwExtraInfo AS LONG.
END PROCEDURE.
/* Your 4GL button code for printscreen. */
DO:
RUN keybd_event({&VK_SNAPSHOT}, 0, 0, 0).
END.
-----Original Message-----
From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com]On Behalf
Of Kevin P. Larkin
Sent: Tuesday, February 21, 2006 1:15 PM
To: vantage@yahoogroups.com
Subject: [Vantage] OT: Printing Screen in 4GL?
I am trying to create a print screen via button or function key
within my 4GL app similar to the F6 button in Vantage. Any ideas on how
I can accomplish this?
Kevin Larkin
&SCOPED-DEFINE VK_SNAPSHOT 44
PROCEDURE keybd_event EXTERNAL "USER32.DLL":U:
DEFINE INPUT PARAMETER bVk AS SHORT.
DEFINE INPUT PARAMETER bScan AS SHORT.
DEFINE INPUT PARAMETER dwFlags AS LONG.
DEFINE INPUT PARAMETER dwExtraInfo AS LONG.
END PROCEDURE.
/* Your 4GL button code for printscreen. */
DO:
RUN keybd_event({&VK_SNAPSHOT}, 0, 0, 0).
END.
-----Original Message-----
From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com]On Behalf
Of Kevin P. Larkin
Sent: Tuesday, February 21, 2006 1:15 PM
To: vantage@yahoogroups.com
Subject: [Vantage] OT: Printing Screen in 4GL?
I am trying to create a print screen via button or function key
within my 4GL app similar to the F6 button in Vantage. Any ideas on how
I can accomplish this?
Kevin Larkin