如何在Visual Basic 2010中使用GetAsyncKeyState检测数字？

Question

我正在记录按键，我想知道什么是数字按钮。这是一个用字母＆＃34; A＆＃34;。

完成的例子

key1 = GetAsyncKeyState(Keys.A)
If Key1 = True Then
    RichTextBox1.SelectedText = "A"
End If

如何使用数字？还有另一种方法吗？如果是的话，请告诉我！

正手谢谢！ ：）

Answer 1

根据这个link，它应该是Keys.D0到Keys.D9

Answer 2

嗯，这就是我使用它的方式，而且效果很好。首先，声明＆＃39; GeyAsyncKeyState＆＃39;在课堂上：

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short

然后，获得数字1：

If (GetAsyncKeyState(49)) Then
        'Do something with 1
End If

获取键盘编号1：

If (GetAsyncKeyState(97)) Then
        'Do something with keypad number 1
End If

现在你想知道，你从哪里得到这些数字？在这里你可以看到哪个数字是哪个键： http://help.adobe.com/en_US/AS2LCR/Flash_10.0/help.html?content=00000520.html 向下滚动一下，您可以看到所有数字到关键翻译。您要使用的数字是＆＃39; Keycode＆＃39;号。

如果您不想记住所有这些数字，您可以创建存储这些数字的整数，例如：

Dim Key_1 As Integer = 49