アクセスＶＢＡについて教えてください。

解決済

質問者：shinnnosuke
質問日時：2001/12/05 12:00
回答数：1件

アクセスＶＢＡで

KeyDown イベントに下記のプロシージャを書きました。
If KeyCode = 49 And Shift = 2 Then
都道府県 = “東京都”
End If

KeyCode = 49はキーボードの「１」ということがヘルプのkeycodeの定数表より、 Vbkey1をイミディエトウィンドで調べることによりわかりました。

?vbkey1
49

Shift = 2 はキーボードのの「ctrl」のことみたいですが、「ALT」「shift」を指定したい場合の引数は何を入れればよいでしょうか。また、ヘルプで参照になるページがあれば教えてください。
それと vbkey の意味を教えてください。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

No.1ベストアンサー

回答者： yanmaa
回答日時：2001/12/05 12:45

ヘルプでKeyDownを調べれば答えは出ています。

定数　値
acShiftMask 1
acCtrlMask 2
acAltMask 4

Shiftの値はこの組み合わせです。
ですからShiftキーだけなら１を返し、ShiftとAltキーを同時に押せば５が返ります。

また「vbKey何がし」は定数として定義されているだけです。これはプログラムのコードを読みやすくするために定義しているのです。
ですからif KeyCode =　49 Thenと書くよりもIf KeCode = vbKey1　thenと書く方が見た目にわかりやすいという利点があります。