Autor | Thema: Scancodes | | Datum:28.07.01 15:32 
(Hans-Peter_Cremers@t-online.de) | |
Hi,
kann mir bitte jemand helfen?
Der Code für die Entertaste ist ´13´. Also programmiere ich
if equ(%key, 13)
Was aber schreibe ich, wenn mir ein kleines Programm, das
den Tastencode ermittelt, bei
Tab die Zahlen 9 und 17 mitteilt und bei
Shift/Tab die Zahlen 16 und 9?
Wie bringe ich die Zahlenpaare - z.B. für Shift/Tab 16/9 -
in der if equ(%key,...)-Zeile unter?
Weiß jemand Bescheid?
Mfg
Hans-Peter
|
| | Datum: 28.07.01 22:33 
(NSp_ware@t-online.de) | |
Hallo,
hab es nach einiger Mühe hinbekommen. Die Zeilen unten müßten das Problem lösen.
MfG
Norbert
-----------------------------------------------------------------------------------------------------------------------------
DEF GetKeyState(1) ! "USER32", "GetKeyState"
CLS
DECLARE ende%, vk1&, vk2&
WHILENOT ende%
WAITINPUT
vk1& = TESTBIT(GetKeyState(9), 15)
'-> 9 steht für Tab
vk2& = TESTBIT(GetKeyState(16), 15)
'-> 16 steht für Shift
IF AND(vk1&, vk2&)
MESSAGEBOX "Shift und Tab wurden gleichzeitig gedrückt.", " ... Hurraa ! ", 64
ENDIF
ENDWHILE
END
|
|
|