キー入力の検出

2011/01/04

キー入力の検出

　キー操作を取得するためにEasy3DではE3DGetKeyboardState命令が用意されています。
基本的にはgetkey命令と同じような機能ですが、複数のキーの状態を一度の呼び出しで取得できる点が異なります。

使い方

使うときは次のように実行します。

	dim keybuf, 256
	...
	E3DGetKeyboardState keybuf

とすると、配列変数keybufに256個全てのキーの入力状況が代入されます。

各キーの情報が入っている要素番号は多くてとても覚えられません。しかし便利なことにE3Dでは要素番号がわかりやすいキーワードで定数としてあらかじめ宣言されています。（キーワードとの対応は後で書きます。）
そのため実際に任意のキーが押されているかどうか確認する場合は次のようにします。

キーボードの「A」が押されているか確認したいとき。
keybuf.'A'
が0のときは押されていません。1のときは押されています。
キーボードの「スペース」が押されているか確認したいとき。
keybuf.VK_SPACE
が0のときは押されていません。1のときは押されています。
…

バーチャルキー情報

キー情報が入っている配列変数の要素番号はE3DGetKeyboardState命令で使いやすいように定数として登録されています。
ここではこのバーチャルキー情報をあらわすための定数を書き出してみました。定数の宣言は e3dhsp3.asに記載されています。
内容はWindowsの、WinUser.h　と同様のものらしいのですが、 WinUser.hの内容がよく分からないので実際にキーボードを使いながら確かめてみました。

同時押し制限の注意

　E3DGetKeyboardState命令は複数キーの同時押しを検出することが出来ます。しかし、一般的なキーボードは2～3キーロールオーバー（2～3個のキーまで同時押し可能、それより多いと検出できない。）です。
使用するキーボードによってはキーボードのハードウェア的な制限上、3個以上の同時押しは場合によっては検出できません。
プログラミングするときはこのこと十分理解した上で操作方法を決める必要があります。

　どうしても同時押しが必要な場合は、ゲームパッド（ゲーム用コントローラ、ジョイパッド）を使ってください。（E3Dでは検出命令はありません。）
HSP開発Wikiなどでゲームパッド情報取得モジュールが入手できます。

普通のキーボードで対応しているキーと要素番号の対応一覧

一般的なPC用のキーボードで対応しているキーです。
通常はこれらのキーだけを使うようにするといいと思います。
ただし、ノートPCのテンキーは非常に押しにくいので、テンキーはあまり多用しないほうがいいでしょう。

定数	キー操作	キー操作
VK_LBUTTON	マウス　左クリック
VK_RBUTTON	マウス　右クリック
VK_CANCEL	Ctrl + Break
VK_MBUTTON	ホイールクリック
VK_BACK	Back Space
VK_TAB	Tabキー
VK_CLEAR	NumLock を外した状態のテンキー5
VK_RETURN	Enter
VK_SHIFT	Shift
VK_CONTROL	Ctrl
VK_MENU	Alt
VK_PAUSE	Pause	Ctrl + NumLock
VK_CAPITAL	Shift + CapsLock
VK_HANJA	Alt + 半角／全角（漢字）
VK_KANJI	Alt + 半角／全角（漢字）
VK_ESCAPE	Esc
VK_SPACE	スペースキー
VK_PRIOR	PageUp
VK_NEXT	PageDown
VK_END	End	Shift + テンキー1
VK_HOME	Home	Shift + テンキー7
VK_LEFT	左矢印キー	Shift + テンキー4
VK_UP	上矢印キー	Shift + テンキー8
VK_RIGHT	右矢印キー	Shift + テンキー6
VK_DOWN	下矢印キー	Shift + テンキー2
VK_SNAPSHOT	PrintScreen
VK_INSERT	Insert	Shift + テンキー0
VK_DELETE	Delete	Shift + テンキー.
'0'	0
...	...
'9'	9
'A'	A
...	...
'Z'	Z
VK_LWIN	ウィンドウズキー（左）
VK_RWIN	ウィンドウズキー（右）
VK_APPS	Applicationキー（右クリックと同等機能のキーのことです。）
VK_NUMPAD0	テンキーの０
VK_NUMPAD1	テンキーの１
VK_NUMPAD2	テンキーの２
VK_NUMPAD3	テンキーの３
VK_NUMPAD4	テンキーの４
VK_NUMPAD5	テンキーの５
VK_NUMPAD6	テンキーの６
VK_NUMPAD7	テンキーの７
VK_NUMPAD8	テンキーの８
VK_NUMPAD9	テンキーの９
VK_MULTIPLY	テンキーの *
VK_ADD	テンキーの +
VK_SUBTRACT	テンキーの -
VK_DECIMAL	テンキーの .
VK_DIVIDE	テンキーの /
VK_F1	F1
VK_F2	F2
VK_F3	F3
VK_F4	F4
VK_F5	F5
VK_F6	F6
VK_F7	F7
VK_F8	F8
VK_F9	F9
VK_F10	F10
VK_F11	F11
VK_F12	F12
VK_NUMLOCK	NumLock
VK_SCROLL	ScrollLock

定数	キー操作	キー操作
VK_LSHIFT	Shift（左）
VK_RSHIFT	Shift（右）
VK_LCONTROL	Ctrl（左）
VK_RCONTROL	Ctrl（右）
VK_LMENU	Alt（左）
VK_RMENU	Alt（右）
VK_OEM_1	';:' for US	:*
VK_OEM_PLUS	'+' any country	;+
VK_OEM_COMMA	',' any country	,<
VK_OEM_MINUS	'-' any country	-=
VK_OEM_PERIOD	'.' any country	.>
VK_OEM_2	'/?' for US	/?
VK_OEM_3	'`~' for US	@`
VK_OEM_4	'[{' for US	[{
VK_OEM_5	'\\|' for US	\ \|
VK_OEM_6	']}' for US	]}
VK_OEM_7	''"' for US	^~

定数	キー操作	キー操作
VK_OEM_102	"<>" or "\\|" on RT 102-key kbd.	_ろ

キーボード依存なキーと要素番号の対応一覧

定数	キー操作	キー操作
VK_KANA	KANA
VK_HANGEUL	HANGEUL
VK_HANGUL	HANGUL
VK_JUNJA
VK_FINAL
CONVERT	前候補、変換（次候補）
NONCONVERT	無変換
ACCEPT
MODECHANGE
VK_SELECT
VK_PRINT
VK_EXECUTE
VK_HELP
VK_SLEEP
VK_SEPARATOR
VK_F13
VK_F14
VK_F15
VK_F16
VK_F17
VK_F18
VK_F19
VK_F20
VK_F21
VK_F22
VK_F23
VK_F24

定数	キー操作	キー操作
VK_OEM_8

定数	キー操作	キー操作
VK_OEM_AX	'AX' key on Japanese AX kbd
VK_ICO_HELP	Help key on ICO
VK_ICO_00	00 key on ICO
VK_ICO_CLEAR

なかなか出会えないキーボードのキーと要素番号の対応一覧

ここから下のは普通使わないんじゃないかと思います。
普通の109キーボードでは対応するキーは無いと思います。
参考程度にどうぞ。

NEC PC-9800 キーボード

定数	キー操作	キー操作
VK_OEM_NEC_EQUAL	'=' key on numpad

Fujitsu/OASYS キーボード

定数	キー操作	キー操作
VK_OEM_FJ_JISHO	Dictionary キー
VK_OEM_FJ_MASSHOU	Unregister word キー
VK_OEM_FJ_TOUROKU	Register word キー
VK_OEM_FJ_LOYA	左親指キー
VK_OEM_FJ_ROYA	右親指キー

Nokia/Ericsson definitions

定数	キー操作	キー操作
VK_OEM_RESET
VK_OEM_JUMP
VK_OEM_PA1
VK_OEM_PA2
VK_OEM_PA3
VK_OEM_WSCTRL
VK_OEM_CUSEL
VK_OEM_ATTN
VK_OEM_FINISH
VK_OEM_COPY
VK_OEM_AUTO
VK_OEM_ENLW
VK_OEM_BACKTAB
VK_ATTN
VK_CRSEL
VK_EXSEL
VK_EREOF
VK_PLAY
VK_ZOOM
VK_NONAME
VK_PA1
VK_OEM_CLEAR

サンプル

適当にキーを押してください。
押した結果が表示されます。

;
;	キー情報取得
;

#include "e3dhsp3.as"

	;/////////////////
	;
	;	初期化
	;
	wid = 0		;ウインドウID
	objid = -1	;オブジェクトID
	fullscreenflag = 0		;フルスクリーンフラグ
	bits = 16	;色数ビット数（fullscreenflag = 1　のときのみ有効）
	multisamplenum = 0		;アンチエイリアスのマルチサンプル数（0,2～16）
	;scid	スワップチェインID
	E3DInit wid, objid, fullscreenflag, bits, multisamplenum, scid
	dim keybuf, 256		;キー入力
	camdegxz = 135		;カメラ向き

	;フォントの設定
;	E3DCreateFont 24,, 400, , , , "ＭＳ ゴシック", fontid
	E3DCreateFont 24,, 400, , , , msgothic, fontid


;/////////////////
;
;	メインループ
;
*main
	E3DGetKeyboardState keybuf	;キー状態取得
	E3DBeginScene	;-----シーンスタート
		;バックバッファへの書き込み作業を行う

		if keybuf.VK_ESCAPE = 1 : goto *bye ; [ESC]で終了


		gosub *text

	E3DEndScene			;-----シーン終了
	E3DPresent scid1	;バックバッファの内容を、プライマリバッファに転送。描画する。

	E3DWaitByFPS 60, chkfps1 : await 0
	title ""+chkfps1 + " FPS"

goto *main


;/////////////////
;
;	終了処理
;
*bye
	E3DBye
	end



;/////////////////
;
;	テキスト表示
;
*text
	if keybuf.VK_LBUTTON  = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_LBUTTON", 255,255,255,255
	if keybuf.VK_RBUTTON  = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_RBUTTON", 255,255,255,255
	if keybuf.VK_CANCEL   = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_CANCEL", 255,255,255,255
	if keybuf.VK_MBUTTON  = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_MBUTTON", 255,255,255,255
	if keybuf.VK_BACK     = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_BACK", 255,255,255,255
	if keybuf.VK_TAB      = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_TAB", 255,255,255,255
	if keybuf.VK_CLEAR    = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_CLEAR", 255,255,255,255
	if keybuf.VK_RETURN   = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_RETURN", 255,255,255,255
	if keybuf.VK_SHIFT    = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_SHIFT", 255,255,255,255
	if keybuf.VK_CONTROL  = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_CONTROL", 255,255,255,255
	if keybuf.VK_MENU     = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_MENU", 255,255,255,255
	if keybuf.VK_PAUSE    = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_PAUSE", 255,255,255,255
	if keybuf.VK_CAPITAL  = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_CAPITAL", 255,255,255,255
	if keybuf.VK_KANA     = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_KANA", 255,255,255,255
	if keybuf.VK_HANGEUL  = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_HANGEUL", 255,255,255,255
	if keybuf.VK_HANGUL   = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_HANGUL", 255,255,255,255
	if keybuf.VK_JUNJA    = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_JUNJA", 255,255,255,255
	if keybuf.VK_FINAL    = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_FINAL", 255,255,255,255
	if keybuf.VK_HANJA    = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_HANJA", 255,255,255,255
	if keybuf.VK_KANJI    = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_KANJI", 255,255,255,255
	if keybuf.VK_ESCAPE   = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_ESCAPE", 255,255,255,255
	if keybuf.CONVERT     = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "CONVERT", 255,255,255,255
	if keybuf.NONCONVERT  = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "NONCONVERT", 255,255,255,255
	if keybuf.ACCEPT      = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "ACCEPT", 255,255,255,255
	if keybuf.MODECHANGE  = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "MODECHANGE", 255,255,255,255
	if keybuf.VK_SPACE    = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_SPACE", 255,255,255,255
	if keybuf.VK_PRIOR    = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_PRIOR", 255,255,255,255
	if keybuf.VK_NEXT     = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_NEXT", 255,255,255,255
	if keybuf.VK_END      = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_END", 255,255,255,255
	if keybuf.VK_HOME     = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_HOME", 255,255,255,255
	if keybuf.VK_LEFT     = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_LEFT", 255,255,255,255
	if keybuf.VK_UP       = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_UP", 255,255,255,255
	if keybuf.VK_RIGHT    = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_RIGHT", 255,255,255,255
	if keybuf.VK_DOWN     = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_DOWN", 255,255,255,255
	if keybuf.VK_SELECT   = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_SELECT", 255,255,255,255
	if keybuf.VK_PRINT    = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_PRINT", 255,255,255,255
	if keybuf.VK_EXECUTE  = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_EXECUTE", 255,255,255,255
	if keybuf.VK_SNAPSHOT = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_SNAPSHOT", 255,255,255,255
	if keybuf.VK_INSERT   = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_INSERT", 255,255,255,255
	if keybuf.VK_DELETE   = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_DELETE", 255,255,255,255
	if keybuf.VK_HELP     = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_HELP", 255,255,255,255
	if keybuf.'0'         = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "'0'", 255,255,255,255
	if keybuf.'1'         = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "'1'", 255,255,255,255
	if keybuf.'2'         = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "'2'", 255,255,255,255
	if keybuf.'3'         = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "'3'", 255,255,255,255
	if keybuf.'4'         = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "'4'", 255,255,255,255
	if keybuf.'5'         = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "'5'", 255,255,255,255
	if keybuf.'6'         = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "'6'", 255,255,255,255
	if keybuf.'7'         = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "'7'", 255,255,255,255
	if keybuf.'8'         = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "'8'", 255,255,255,255
	if keybuf.'9'         = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "'9'", 255,255,255,255
	if keybuf.'A'         = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "'A'", 255,255,255,255
	if keybuf.'B'         = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "'B'", 255,255,255,255
	if keybuf.'C'         = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "'C'", 255,255,255,255
	if keybuf.'D'         = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "'D'", 255,255,255,255
	if keybuf.'E'         = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "'E'", 255,255,255,255
	if keybuf.'F'         = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "'F'", 255,255,255,255
	if keybuf.'G'         = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "'G'", 255,255,255,255
	if keybuf.'H'         = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "'H'", 255,255,255,255
	if keybuf.'I'         = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "'I'", 255,255,255,255
	if keybuf.'J'         = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "'J'", 255,255,255,255
	if keybuf.'K'         = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "'K'", 255,255,255,255
	if keybuf.'L'         = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "'L'", 255,255,255,255
	if keybuf.'M'         = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "'M'", 255,255,255,255
	if keybuf.'N'         = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "'N'", 255,255,255,255
	if keybuf.'O'         = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "'O'", 255,255,255,255
	if keybuf.'P'         = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "'P'", 255,255,255,255
	if keybuf.'Q'         = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "'Q'", 255,255,255,255
	if keybuf.'R'         = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "'R'", 255,255,255,255
	if keybuf.'S'         = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "'S'", 255,255,255,255
	if keybuf.'T'         = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "'T'", 255,255,255,255
	if keybuf.'U'         = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "'U'", 255,255,255,255
	if keybuf.'V'         = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "'V'", 255,255,255,255
	if keybuf.'W'         = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "'W'", 255,255,255,255
	if keybuf.'X'         = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "'X'", 255,255,255,255
	if keybuf.'Y'         = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "'Y'", 255,255,255,255
	if keybuf.'Z'         = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "'Z'", 255,255,255,255
	if keybuf.VK_LWIN     = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_LWIN", 255,255,255,255
	if keybuf.VK_RWIN     = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_RWIN", 255,255,255,255
	if keybuf.VK_APPS     = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_APPS", 255,255,255,255
	if keybuf.VK_SLEEP    = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_SLEEP", 255,255,255,255
	if keybuf.VK_NUMPAD0  = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_NUMPAD0", 255,255,255,255
	if keybuf.VK_NUMPAD1  = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_NUMPAD1", 255,255,255,255
	if keybuf.VK_NUMPAD2  = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_NUMPAD2", 255,255,255,255
	if keybuf.VK_NUMPAD3  = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_NUMPAD3", 255,255,255,255
	if keybuf.VK_NUMPAD4  = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_NUMPAD4", 255,255,255,255
	if keybuf.VK_NUMPAD5  = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_NUMPAD5", 255,255,255,255
	if keybuf.VK_NUMPAD6  = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_NUMPAD6", 255,255,255,255
	if keybuf.VK_NUMPAD7  = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_NUMPAD7", 255,255,255,255
	if keybuf.VK_NUMPAD8  = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_NUMPAD8", 255,255,255,255
	if keybuf.VK_NUMPAD9  = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_NUMPAD9", 255,255,255,255
	if keybuf.VK_MULTIPLY = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_MULTIPLY", 255,255,255,255
	if keybuf.VK_ADD      = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_ADD", 255,255,255,255
	if keybuf.VK_SEPARATOR= 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_SEPARATOR", 255,255,255,255
	if keybuf.VK_SUBTRACT = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_SUBTRACT", 255,255,255,255
	if keybuf.VK_DECIMAL  = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_DECIMAL", 255,255,255,255
	if keybuf.VK_DIVIDE   = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_DIVIDE", 255,255,255,255
	if keybuf.VK_F1       = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_F1", 255,255,255,255
	if keybuf.VK_F2       = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_F2", 255,255,255,255
	if keybuf.VK_F3       = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_F3", 255,255,255,255
	if keybuf.VK_F4       = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_F4", 255,255,255,255
	if keybuf.VK_F5       = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_F5", 255,255,255,255
	if keybuf.VK_F6       = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_F6", 255,255,255,255
	if keybuf.VK_F7       = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_F7", 255,255,255,255
	if keybuf.VK_F8       = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_F8", 255,255,255,255
	if keybuf.VK_F9       = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_F9", 255,255,255,255
	if keybuf.VK_F10      = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_F10", 255,255,255,255
	if keybuf.VK_F11      = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_F11", 255,255,255,255
	if keybuf.VK_F12      = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_F12", 255,255,255,255
	if keybuf.VK_F13      = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_F13", 255,255,255,255
	if keybuf.VK_F14      = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_F14", 255,255,255,255
	if keybuf.VK_F15      = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_F15", 255,255,255,255
	if keybuf.VK_F16      = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_F16", 255,255,255,255
	if keybuf.VK_F17      = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_F17", 255,255,255,255
	if keybuf.VK_F18      = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_F18", 255,255,255,255
	if keybuf.VK_F19      = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_F19", 255,255,255,255
	if keybuf.VK_F20      = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_F20", 255,255,255,255
	if keybuf.VK_F21      = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_F21", 255,255,255,255
	if keybuf.VK_F22      = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_F22", 255,255,255,255
	if keybuf.VK_F23      = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_F23", 255,255,255,255
	if keybuf.VK_F24      = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_F24", 255,255,255,255
	if keybuf.VK_NUMLOCK  = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_NUMLOCK", 255,255,255,255
	if keybuf.VK_SCROLL   = 1 :	E3DDrawTextByFontID scid, fontid, 10,10, "VK_SCROLL", 255,255,255,255

	if keybuf.VK_LSHIFT   = 1 :	E3DDrawTextByFontID scid, fontid, 10,40, "VK_LSHIFT", 255,255,255,255
	if keybuf.VK_RSHIFT   = 1 :	E3DDrawTextByFontID scid, fontid, 10,40, "VK_RSHIFT", 255,255,255,255
	if keybuf.VK_LCONTROL = 1 :	E3DDrawTextByFontID scid, fontid, 10,40, "VK_LCONTROL", 255,255,255,255
	if keybuf.VK_RCONTROL = 1 :	E3DDrawTextByFontID scid, fontid, 10,40, "VK_RCONTROL", 255,255,255,255
	if keybuf.VK_LMENU    = 1 :	E3DDrawTextByFontID scid, fontid, 10,40, "VK_LMENU", 255,255,255,255
	if keybuf.VK_RMENU    = 1 :	E3DDrawTextByFontID scid, fontid, 10,40, "VK_RMENU", 255,255,255,255
	if keybuf.VK_OEM_1    = 1 :	E3DDrawTextByFontID scid, fontid, 10,40, "VK_OEM_1", 255,255,255,255
	if keybuf.VK_OEM_PLUS = 1 :	E3DDrawTextByFontID scid, fontid, 10,40, "VK_OEM_PLUS", 255,255,255,255
	if keybuf.VK_OEM_COMMA= 1 :	E3DDrawTextByFontID scid, fontid, 10,40, "VK_OEM_COMMA", 255,255,255,255
	if keybuf.VK_OEM_MINUS= 1 :	E3DDrawTextByFontID scid, fontid, 10,40, "VK_OEM_MINUS", 255,255,255,255
	if keybuf.VK_OEM_PERIOD=1 :	E3DDrawTextByFontID scid, fontid, 10,40, "VK_OEM_PERIOD", 255,255,255,255
	if keybuf.VK_OEM_2   = 1 :	E3DDrawTextByFontID scid, fontid, 10,40, "VK_OEM_2", 255,255,255,255
	if keybuf.VK_OEM_3   = 1 :	E3DDrawTextByFontID scid, fontid, 10,40, "VK_OEM_3", 255,255,255,255
	if keybuf.VK_OEM_4   = 1 :	E3DDrawTextByFontID scid, fontid, 10,40, "VK_OEM_4", 255,255,255,255
	if keybuf.VK_OEM_5   = 1 :	E3DDrawTextByFontID scid, fontid, 10,40, "VK_OEM_5", 255,255,255,255
	if keybuf.VK_OEM_6   = 1 :	E3DDrawTextByFontID scid, fontid, 10,40, "VK_OEM_6", 255,255,255,255
	if keybuf.VK_OEM_7   = 1 :	E3DDrawTextByFontID scid, fontid, 10,40, "VK_OEM_7", 255,255,255,255
	if keybuf.VK_OEM_8   = 1 :	E3DDrawTextByFontID scid, fontid, 10,40, "VK_OEM_8", 255,255,255,255

	if keybuf.VK_OEM_AX  = 1 :	E3DDrawTextByFontID scid, fontid, 10,70, "VK_OEM_AX", 255,255,255,255
	if keybuf.VK_OEM_102 = 1 :	E3DDrawTextByFontID scid, fontid, 10,70, "VK_OEM_102", 255,255,255,255
	if keybuf.VK_ICO_HELP= 1 :	E3DDrawTextByFontID scid, fontid, 10,70, "VK_ICO_HELP", 255,255,255,255
	if keybuf.VK_ICO_00  = 1 :	E3DDrawTextByFontID scid, fontid, 10,70, "VK_ICO_00", 255,255,255,255
	if keybuf.VK_ICO_CLEAR= 1 :	E3DDrawTextByFontID scid, fontid, 10,70, "VK_ICO_CLEAR", 255,255,255,255

return