Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12474 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   こんばんはどうしてもわからないことがあるので質問させていただきます。
ここのＨＰを見ながらゲームを作りたいのですが、キー入力判定で
同時押しの判定ということはできるのでしょうか?
どなたか知っていらっしゃる方がいましたら、教えていただけないでしょうか？
【10415】Re:キー入力判定の同時押し
回答  角田 WEB  - 04/1/25(日) 23:12 -
引用なし
パスワード
   こんにちは。
> ゲームを作りたいのですが、キー入力判定で
下記のＨＰの「世留と仙人」で、エクセルゲームの基礎中の基礎が勉強できます。
http://www1.plala.or.jp/chikada/
【10416】Re:キー入力判定の同時押し
質問  furusato  - 04/1/25(日) 23:27 -
引用なし
パスワード
   ▼角田 さん：
>こんにちは。
>> ゲームを作りたいのですが、キー入力判定で
>下記のＨＰの「世留と仙人」で、エクセルゲームの基礎中の基礎が勉強できます。
>http://www1.plala.or.jp/chikada/

ご返答ありがとうございます。僕もそのＨＰを見て勉強してみたのですが
キー入力の方法はありましたが、同時押しについては記述されていませんでした
ほかにもお勧めのＨＰなどがありましたらぜひ教えていただきたいです。
ありがとうございました。
【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の同時押しで終了します。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12474 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free