処理の途中で強制終了 (ID:147744)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 GetAsyncKeyState API を使う方法があります。 Private Declare Function GetAsyncKeyState _ Lib "user32" (ByVal vKey As Integer) As Short Private Sub Button1_Click( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Const VK_A As Integer = 65 Do If GetAsyncKeyState(VK_A) <> 0 Then Exit Do Loop MessageBox.Show("Aキーが押されました。") End Sub