![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?c9bd177)
いつもお世話になります
ウェッブ調べて使ってみましたが、説明がよくわからず
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も見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
vba GetAsyncKeyState関数について
Visual Basic(VBA)
-
【VBA】Worksheet_changeイベントで特定のキーが押されたときだけ無効にしたい
Visual Basic(VBA)
-
VBA エンターキーでイベントに入りたい。
PowerPoint(パワーポイント)
-
-
4
Excel VBAでマウスの左クリックのイベントを検知するには
Visual Basic(VBA)
-
5
特定のキーを押すまでループさせるにはどうすればよいですか。
Visual Basic(VBA)
-
6
Excel vbaでキーの操作の入力
Excel(エクセル)
-
7
GetAsyncKeyState() を利用するときの良い方法は
Visual Basic(VBA)
-
8
【KeyDown】キーコードについて
Visual Basic(VBA)
-
9
vba userFormのSubを標準モジュールから呼び出す方法を教えてください
Visual Basic(VBA)
-
10
GetAsyncKeyState(32) の動作が分からない
Excel(エクセル)
-
11
vab パソコンが変わってPageSetupが合わなくなりましたので教えてください
Visual Basic(VBA)
-
12
(マクロ)コピー貼付のマクロで、クリップボードに何も貼付ていな時の実行をエラーにしない為には
Visual Basic(VBA)
-
13
VBEを開くのにコマンド名が「Visual Basic」な理由はなぜ?
Visual Basic(VBA)
-
14
未経験の仕事 いつ見切りをつけるか
CAD・DTP
-
15
AutoCad 大きさの違う文字を描く時、前の文字の終わり点を知りたい
CAD・DTP
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
6月の共テ模試が6割しか取れな...
-
模試の結果が返って来て教科の...
-
進研マーク模試について質問で...
-
高2です。7月進研模試で明治大...
-
一浪して国立医学部に行ける人...
-
國學院大學 現代文についてです...
-
河合模試である大学がB判定でし...
-
共通テストで大失敗しました。
-
7月に受けた模試でC判定だった...
-
予備校にも通わず模試判定も受...
-
情報の取得
-
看護学部目指してて二浪はヤバ...
-
中身がFALSEなのにTRUEになる
-
新潟大学の二次試験について
-
共通テストで失敗してしまい、...
-
excelで発注書【購入金額に応じ...
-
高3
-
明治大学の全学部は英検利用で...
-
ExcelVBAでSelection...
-
Excelによる土日と祝祭日の算出...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
模試で科目不足の判定になって...
-
至急です! 河合塾の共通テスト...
-
模試の結果が返って来て教科の...
-
共通テストで大失敗しました。
-
明治大学の全学部は英検利用で...
-
【医学・人間ドッグは詐欺?】...
-
九大機械系の前期と九工大後期...
-
第一志望の国公立大学がC判定で...
-
阪大実戦、まさかのD判定でした...
-
模擬試験で、志望校が学部内で5...
-
武蔵大学の評判を教えて下さい...
-
模試の結果が酷いです
-
埼玉大学経済学部のオススメの...
-
恒等式と方程式の見分け方が分...
-
私大共通テスト利用でB判定って...
-
ある病原菌を検出する検査法に...
-
中身がFALSEなのにTRUEになる
-
マナビジョンの進研模試は私立...
-
高2で結構難易度高めの国公立志...
-
7月に受けた模試でC判定だった...
おすすめ情報