![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
いつもお世話になります
ウェッブ調べて使ってみましたが、説明がよくわからず
Debug.Print を入れてチェックしてみました
Do
If GetAsyncKeyState(vbKeyLButton) = 32768 Then '...マウス左クリックの判定
Debug.Print "check1", GetAsyncKeyState(vbKeyLButton)
Exit Do
ElseIf GetAsyncKeyState(vbKeyReturn) = 32768 Then '...エンターキーの判定
Debug.Print "check2", GetAsyncKeyState(vbKeyReturn)
Exit Do
ElseIf GetAsyncKeyState(vbKeyEscape) = 32768 Then '...エスケープキーの判定
Debug.Print "check3", GetAsyncKeyState(vbKeyEscape)
GoTo ErrOut
End If
Loop
今、三つのKeyでチェcckしてみましたが押されたときはみなプラスの32768のようですが
これで良いのですか?
ちょっと不安だったので投稿してみました
押される前は"0"か"1"みたいですが
以上、宜しくお願い致します
No.1ベストアンサー
- 回答日時:
いずれにせよ、この確認の仕方はまずいかもですね。
Ifでの判定時とDebug.Print時に毎回2度GetAsyncKeyState()を呼び出しているので、この間にも応答が変わります。
GetAsyncKeyState()の戻り値を変数で受け取るようにして、呼び出しは毎ループ1度にしましょう。
さらにいうと、変数で受けるように書き換えたとしても、Ifで値が32768だった時の値をPrintしているのだから、当然コンソールにPrintされる値は32768です。確認にはなっていないですね。
もっとも、やはりプラスの32768は返ってこないと思いますが。
ご返信、ありがとうございます
Declare PtrSafe Function GetAsyncKeyState Lib "User32.dll" (ByVal vKey As Long) As Long
と自分は、戻り値4バイトを使っているので負の数字はなさそうです
結果的に32768で問題なさそうなのでこれで行きます
いつもいろいろありがとうございます
これからもよろしくお願いいたします
No.2
- 回答日時:
こんばんは
GetAsyncKeyStateはキー(またはマウス)を指定して問い合わせますので、返される値は限定的です。
戻り値はInteger(=2バイト)で、最上位ビットと最下位ビットのみに意味があり、それぞれのビットの組み合わせの4種類の値のどれかが、その時の状態によって返されることになります。
https://www.tokovalue.jp/function/GetAsyncKeySta …
https://vbabeginner.net/getasynckeystate/
繰り返して呼び出すことに関しては、No1様のご指摘にある通りかと。
ご返信、ありがとうございます
Declare PtrSafe Function GetAsyncKeyState Lib "User32.dll" (ByVal vKey As Long) As Long
と自分は、戻り値4バイトを使っているので負の数字はなさそうです
結果的に32768で問題なさそうなのでこれで行きます
いつもいろいろありがとうございます
これからもよろしくお願いいたします
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) vba GetAsyncKeyState関数について 1 2023/08/24 12:08
- Visual Basic(VBA) excel VBAでメールを送る方法について 2 2021/11/03 15:34
- Visual Basic(VBA) Excel VBAでフォルダ内の全テキストファイルの任意データを取得について 7 2021/12/18 16:00
- Visual Basic(VBA) Excel VBAの解読について質問があります。 概要は、マクロでチェックボックスにチェックすると日 1 2023/02/10 07:50
- Visual Basic(VBA) シート名をフォルダ名に変更 1 2021/12/01 15:59
- Visual Basic(VBA) シート名でファイル検索する 2 2021/11/30 17:05
- Visual Basic(VBA) InputBoxでキャンセルボタンを押したらファイル自体を閉じたい 3 2022/07/23 17:52
- Visual Basic(VBA) Excel vba で条件分岐 1 2021/11/01 09:36
- Visual Basic(VBA) 空のシートに関数を入れたい 2 2021/12/03 15:08
- Visual Basic(VBA) VBA excelからメールを送る方法について 1 2021/11/03 11:30
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
vba GetAsyncKeyState関数について
Visual Basic(VBA)
-
【VBA】Worksheet_changeイベントで特定のキーが押されたときだけ無効にしたい
Visual Basic(VBA)
-
Excel VBAでマウスの左クリックのイベントを検知するには
Visual Basic(VBA)
-
-
4
特定のキーを押すまでループさせるにはどうすればよいですか。
Visual Basic(VBA)
-
5
Excel vbaでキーの操作の入力
Excel(エクセル)
-
6
GetAsyncKeyState() を利用するときの良い方法は
Visual Basic(VBA)
-
7
GetAsyncKeyState(32) の動作が分からない
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
模試の結果が返って来て教科の...
-
河合模試である大学がB判定でし...
-
ある病原菌を検出する検査法に...
-
模擬試験で、志望校が学部内で5...
-
志望校の判定が河合塾では、A判...
-
7月に受けた模試でC判定だった...
-
模試では最後までE判定でも受か...
-
共通テストで大失敗しました。
-
模試で科目不足の判定になって...
-
高3
-
6月の共テ模試が6割しか取れな...
-
新潟大学の二次試験の難易度に...
-
阪大実戦、まさかのD判定でした...
-
進研模試のD判定はどのくらいの...
-
志望校を担任に伝えて、調査書...
-
九大機械系の前期と九工大後期...
-
大学受験について
-
VBA マウスクリックとキーボー...
-
私大文系志望の高3です。 6月...
-
大学出願を信州大の物質科学か...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
模試で科目不足の判定になって...
-
至急です! 河合塾の共通テスト...
-
模試の結果が返って来て教科の...
-
共通テストで大失敗しました。
-
明治大学の全学部は英検利用で...
-
【医学・人間ドッグは詐欺?】...
-
九大機械系の前期と九工大後期...
-
第一志望の国公立大学がC判定で...
-
阪大実戦、まさかのD判定でした...
-
模擬試験で、志望校が学部内で5...
-
武蔵大学の評判を教えて下さい...
-
模試の結果が酷いです
-
埼玉大学経済学部のオススメの...
-
恒等式と方程式の見分け方が分...
-
私大共通テスト利用でB判定って...
-
ある病原菌を検出する検査法に...
-
中身がFALSEなのにTRUEになる
-
マナビジョンの進研模試は私立...
-
高2で結構難易度高めの国公立志...
-
7月に受けた模試でC判定だった...
おすすめ情報