Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

70820 / 76738

←次へ　｜　前へ→


	【10420】Re:キー入力判定の同時押し

近田

- 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の同時押しで終了します。

1 hits

▼

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