8

The LA Fox Developer Newsletter
June 1997
KeyPress Event Parameters
by Robin Connelly
rhe file below of VFP coding replaces the ‘ON KEY LABEL’
processing in Foxpro for MSDOS / Windows...

Niotice the command lines are simply qualified names for the
Click’ method, and does not look like the procedural coding we
have been used to...


‘Name: TEMP3.PRG

LPARAMETERS nKeyCode, nShiftAItCtrl

5/29/97 out of the “need to know” Robin developed
this chart of parameters passed to the
KeyPress Method in Visual Foxpro version 5.0
(I feel sure this is documented somewhere else,
but here it is for your use as well as mine)
nKeyCode is the Chr() value for the key pressed,

e.g.
97 for the character ‘a’
nShiftAltCtrl value is as follows:

Value Shift CtrI Alt

0
No
No
No
I
Yes
No
No
2
No
Yes
No
3
Yes
Yes
No
4
No
No
Yes
5
Yes
No
Yes
6
No
Yes
Yes
7
n/a
n/a
n/a
=ddisplay(
chr(13) + space(10) +
altrim( str( m.nKeycode) ) + = m.nKeyCode” +;
space(10) + chr(13) + space(10) +;
alltrim( str( m.nShlftAltctrl ) ) + = m.nShiftAltCtrl” +
space(10) ) && DEBUG ONLY ONLY DEBUG


do case

case m.nKeycode = 27 .and.;
m.nShiftAltCtrl 0

This is the ‘customer’ window...

*
Just ring the bell if they hit [Esc]
WavToBell( “Ding” ) && Thought about puttin 'Yipe.wav' here...
RingBell()

case m.nKeyCode = 3 .and.
m.nShiftAltCtrl 0

*
Page Down Key
Thisform.Next_Button.click && emulate 16 bit action


(Con't next column)
From David Salson...
Hot Off the Wire
Get Microsoft’s TechNet - FREE


Someone at Microsoft sure is feeling generous. A special,
limited promotion is just around the corner for a free 30-day trial
offer to Tech Net Microsoft’s “must have” technical support CD.
With more than 150,000 pages on two CDs, TechNet is the
most complete resource for your technical information needs.
The promo should be starting at the beginning of June, with info
available from the Office Migration web site. Supplies are
limited, so bookmark the URL below and watch for the promo to
start to get in on the action.

Microsoft, Web: http://www.microsoft.com/office/migration/


New Microsoft Online Support Solutions


If you haven’t visited Microsoft’s support site lately, you don’t
know what you’re missing. New services now being offered
make Microsoft’s site one of the most comprehensive sources
of web based support around. What’s all the hoopla? Well for
starters, all customers can now submit support requests for any
Microsoft product through a form on the web. Just fill out the
appro riate form arid a technical specialist will respond within
one business day! Next, a series of slick, new wizards that can
do almost anything from comparing files on your own desktop to
locate recommended patches and free add-ons, to troubleshoot-
ing wizards that will help diagnose your technical problems.
Why not check it out for yourself, and click that tiny URL listed
below.

Microsoft, Web: http://www.microsoft.com/supportJ


KeyPress (Con't from previous column)

case m.nKeyCode = 18 .and.
m.nShiftAltCtrl 0
*


Page Up Key
Thisform.Previous_Button.click && emulate 16 bit action

otherwise
a
Do nothing...
*


•ndcase
Page 8

8