いつもお世話になります
ウェッブ調べて使ってみましたが、説明がよくわからず
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も見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Windows 11 Pro での、VBAのCode書き換えで、1点お教え願います。
Visual Basic(VBA)
-
自動VBAマクロって会社の中で禁止なんですか?
Visual Basic(VBA)
-
vba GetAsyncKeyState関数について
Visual Basic(VBA)
-
-
4
select case について
Visual Basic(VBA)
-
5
VB.NETでVBスクリプトを作るにはどうしたらいいですか?
Visual Basic(VBA)
-
6
VisualStudio2022をマクロみたいに自動プログラムを作成する方法を教えてください。
Visual Basic(VBA)
-
7
csvファイルを列数ごとに分割するExcelマクロが書けずに困っています
Visual Basic(VBA)
-
8
プログラマーがHTMLとCSSでウェブデザインをするのは大人の幼稚園なんじゃないかと思い込んでる
その他(プログラミング・Web制作)
-
9
(マクロ)コピー貼付のマクロで、クリップボードに何も貼付ていな時の実行をエラーにしない為には
Visual Basic(VBA)
-
10
環境依存文字?をEnumで定義したい
Visual Basic(VBA)
-
11
VBEを開くのにコマンド名が「Visual Basic」な理由はなぜ?
Visual Basic(VBA)
-
12
Fortran の定数表現について
その他(プログラミング・Web制作)
-
13
Excelマクロで空白セルの大小比較処理について
Visual Basic(VBA)
-
14
VB.Netでファイル圧縮する方法は何ですか?
Visual Basic(VBA)
-
15
一つのフォルダーに50個のエクセルファイルがあります。 各ファイルにはAとBのシートがあります。 5
Visual Basic(VBA)
-
16
VBA 同じ名前のオブジェクトを選択したいのですが
Visual Basic(VBA)
-
17
vba userFormのSubを標準モジュールから呼び出す方法を教えてください
Visual Basic(VBA)
-
18
VBA 何かしら文字が入っていたら
Visual Basic(VBA)
-
19
VBA とびとびの列を結合させる
Visual Basic(VBA)
-
20
C言語関数違いについて。
C言語・C++・C#
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
模擬試験で、志望校が学部内で5...
-
模試の結果が違いすぎ!!
-
共通テストリサーチについてで...
-
VBAによるOS判定
-
第一志望の国公立大学がC判定で...
-
高3の進研模試について質問です...
-
進研模試のD判定はどのくらいの...
-
高2進研模試 金沢大学
-
共通テストで大失敗しました。
-
九大機械系の前期と九工大後期...
-
受験今のシーズンbよりのc判定...
-
この度数分布表を見てふと思っ...
-
ベネッセ実力判定テストについて
-
大学の急な進路変更
-
私大共通テスト利用でB判定って...
-
Excel2013のVBAでWeeknum関数が...
-
阪大実戦、まさかのD判定でした...
-
至急です! 河合塾の共通テスト...
-
マナビジョンの進研模試は私立...
-
中身がFALSEなのにTRUEになる
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
共通テストで大失敗しました。
-
第一志望の国公立大学がC判定で...
-
武蔵大学の評判を教えて下さい...
-
模試で科目不足の判定になって...
-
模試の結果が酷いです
-
ある病原菌を検出する検査法に...
-
高3の進研模試について質問です...
-
明治大学の全学部は英検利用で...
-
北海道大学から弘前大学に落と...
-
恒等式と方程式の見分け方が分...
-
九大機械系の前期と九工大後期...
-
模試の結果が返って来て教科の...
-
至急です! 河合塾の共通テスト...
-
7月に受けた模試でC判定だった...
-
阪大実戦、まさかのD判定でした...
-
ベネッセ実力判定テストについて
-
河合模試である大学がB判定でし...
-
埼玉大学経済学部のオススメの...
-
中身がFALSEなのにTRUEになる
-
奈良女子大か大阪教育大か
おすすめ情報