もどる

 GetAsyncKeyState
HOMEへ
PRODUCTSへ
LEARNING
LINKへ
LOGO
HeadLine
ORDER FORMへ
Image画像
MailTo:

もどる


(c) Copyright 2005 VBAを基礎から解説 VBA World All rights reserved.
E-Mail:info@vba-world.com
GetAsyncKeyState は与えられた引数のキーが押されたかどうかを判定します。引数で指定したキーを押しているときだけ 0以外の数値を返します。

次の例ではエスケープキーを押すことによりゲームの終了(フォームの終了)をするプログラムを表します。


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