如何使用Visual Basic 2010中的GetAsyncKeyState检测numers？

Question

我记录按键，我想知道什么是数字按钮调用。这是用字母“A”完成的一个例子。

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

我该如何得到这个数字？有没有另一种方法来做到这一点？如果是这样，请让我知道！

谢谢你正手！ :)

Answer 1

根据这一link应该Keys.D0到Keys.D9

Answer 2

嗯，这是我如何使用它，它的伟大工程。首先，声明 'GeyAsyncKeyState' 在类：

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 向下滚动一下，您可以看到所有数字以进行键翻译。您要使用的号码是'Keycode'号码。

如果你不想记住所有这些数字，你可以创建一个存储这些整数数量，如：

Dim Key_1 As Integer = 49