Excel VBA質問箱 IV

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

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


70816 / 76734 ←次へ | 前へ→

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

【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 回答

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