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 |