[<<Previous Entry]
[^^Up^^]
[Next Entry>>]
[Menu]
[About The Guide]
+---------------------------------+
| LASTKEY |
+---------------------------------+
LASTKEY()
-----------------------------------
Returns a value corresponding to last key pressed.
Return value - Numeric
-----------------------------------
A list of these keys and their associated values follows:
Key Alone Shift Ctrl Alt
-----------------------------------
F1 28 84 94 104
F2 -1 85 95 105
F3 -2 86 96 106
F4 -3 87 97 107
F5 -4 88 98 108
F6 -5 89 99 109
F7 -6 90 100 110
F8 -7 91 101 111
F9 -8 92 102 112
F10 -9 93 103 113
F11 133 135 137 139
F12 134 136 138 140
1 49 33 - 120
2 50 64 33 121
3 51 35 - 122
4 52 36 - 123
5 53 37 - 124
6 54 94 30 125
7 55 38 - 126
8 56 42 - 127
9 57 40 - 128
0 48 41 - 19
a 97 65 1 30
b 98 66 2 48
c 99 67 3 46
d 100 68 4 32
e 101 69 5 18
f 102 70 6 33
g 103 71 7 34
h 104 72 8 35
i 105 73 9 23
j 106 74 10 36
k 107 75 11 37
l 108 76 12 38
m 109 77 13 50
n 110 78 14 49
o 111 79 15 24
p 112 80 16 25
q 113 81 17 16
r 114 82 18 19
s 115 83 19 31
t 116 84 20 20
u 117 85 21 33
v 118 86 22 47
w 119 87 23 17
x 120 88 24 45
y 121 89 25 21
z 122 90 26 44
INS 22 22 - -
HOME 1 1 29 -
DEL 7 7 - -
END 6 6 23 -
PGUP 18 18 31 -
PGDN 3 3 30 -
UP 5 5 - -
RIGHT 4 4 2 -
LEFT 19 19 26 -
DOWN 24 24 - -
ESC 27 27 27 -
ENTER 13 13 10 -
BKSPAC 127 127 127 -
TAB 9 15 148 165
+---------------------------------+
| Program Example |
+---------------------------------+
In this example, data from current record in CUSTOMER is placed in an
array with SCATTER. The user is then allowed to edit the field data for
record and can press Escape key at any time to cancel changes.
LASTKEY() tests to see if the READ was exited by pressing the Escape key
and if so restores the original values to the data fields with GATHER.
CLOSE ALL
SET TALK OFF
USE customer
SCATTER TO temp
DEFINE WINDOW menter FROM 6,10 TO 18,70 PANEL
ACTIVATE WINDOW menter
@ 1,3 SAY 'Customer: ' GET company
@ 3,3 SAY 'Address: ' GET address1
@ 5,3 SAY 'City: ' GET city
@ 7,3 SAY 'State: ' GET state
@ 7,18 SAY 'Zip: ' GET zip
@ 9,18 SAY 'Press <Escape> to cancel'
READ
IF LASTKEY() = 27 && Escape key pressed
GATHER FROM temp
ENDIF
DEACTIVATE WINDOW menter
RELEASE WINDOW menter
CHANGE
USE
-----------------------------------
See Also: CHRSAW(), INKEY(), KEYBOARD, READKEY()
-----------------------------------
See Also:
CHRSAW()
INKEY()
KEYBOARD
READKEY()
This page created by ng2html v1.05, the Norton guide to HTML conversion utility.
Written by Dave Pearson