GetAsyncKeyState は与えられた引数のキーが押されたかどうかを判定します。引数で指定したキーを押しているときだけ
０以外の数値を返します。
次の例ではエスケープキーを押すことによりゲームの終了（フォームの終了）をするプログラムを表します。
Option Explicit
’API関数 GetAsyncKeyStateを宣言
Private Declare Function GetAsyncKeyState _
Lib "User32.dll" (ByVal vKey As Long) As Long
Private Sub UserForm_Activate()
Do
If GetAsyncKeyState(vbKeyEscape) Then Unload Me
：
’この部分にゲームを動かすプログラムを記述する。
：
Loop
End Sub
|
|
