Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


12455 / 13646 ツリー ←次へ | 前へ→

【10414】キー入力判定の同時押し furusato 04/1/25(日) 22:37 質問
【10415】Re:キー入力判定の同時押し 角田 04/1/25(日) 23:12 回答
【10416】Re:キー入力判定の同時押し furusato 04/1/25(日) 23:27 質問
【10420】Re:キー入力判定の同時押し 近田 04/1/26(月) 9:04 回答

【10414】キー入力判定の同時押し
質問  furusato  - 04/1/25(日) 22:37 -

引用なし
パスワード
   こんばんはどうしてもわからないことがあるので質問させていただきます。
ここのHPを見ながらゲームを作りたいのですが、キー入力判定で
同時押しの判定ということはできるのでしょうか?
どなたか知っていらっしゃる方がいましたら、教えていただけないでしょうか?

【10415】Re:キー入力判定の同時押し
回答  角田 WEB  - 04/1/25(日) 23:12 -

引用なし
パスワード
   こんにちは。
> ゲームを作りたいのですが、キー入力判定で
下記のHPの「世留と仙人」で、エクセルゲームの基礎中の基礎が勉強できます。
http://www1.plala.or.jp/chikada/

【10416】Re:キー入力判定の同時押し
質問  furusato  - 04/1/25(日) 23:27 -

引用なし
パスワード
   ▼角田 さん:
>こんにちは。
>> ゲームを作りたいのですが、キー入力判定で
>下記のHPの「世留と仙人」で、エクセルゲームの基礎中の基礎が勉強できます。
>http://www1.plala.or.jp/chikada/

ご返答ありがとうございます。僕もそのHPを見て勉強してみたのですが
キー入力の方法はありましたが、同時押しについては記述されていませんでした
ほかにもお勧めのHPなどがありましたらぜひ教えていただきたいです。
ありがとうございました。

【10420】Re:キー入力判定の同時押し
回答  近田 WEB  - 04/1/26(月) 9:04 -

引用なし
パスワード
   furusato さん、はじめまして。
世留と仙人、ご覧いただきありがとうございます。

角田さんより、呼ばれて参りました。

Declare Function GetAsyncKeyState Lib "User32.dll" (ByVal vKey As Long) As Long
Sub Start()
  Dim GameFlag As Boolean
  Dim Key1 As Integer
  Dim Key2 As Integer
  GameFlag = True
  Do While GameFlag
   Key1 = GetAsyncKeyState(16)
   Key2 = GetAsyncKeyState(17)
   If Key1 <> 0 And Key2 <> 0 Then
     MsgBox "Shift+Ctrl"
     GameFlag = False
   End If
   DoEvents
  Loop
End Sub

Shift+Ctrlの同時押しで終了します。

12455 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free