如何使用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