Accepting input from the Numeric Keypad

Question

I learn by doing and have been writing a simple RPN Calculator program to help. So far it works fairly well as long as I click on the buttons using a mouse. I want to be able to accept inout from the Numeric Keypad as well. I have accessed the help function and have tried to implement the "Public enum Keys" function but have not gotten beyond the definition stage. Can anyone point me in the direction of a tutorial, help file, or other resource that would help me implement keyboard input for a running program? Basically, I want to be able to either click on the "1" button or press the number "1" on the keyboard and have a "1" entered into the appropriate textbox. Any assistance would be greatly appreciated.

spock 0 · Answer

Hmm. No reply yet? No one has any code snippets they want to share?

spock 0 · Answer

I had already set the KeyPreview = true my problem is I am having trouble trapping the event. I have all the keys I wish to trap set up as constants mainly to remind me what they are rather than for any real use right now. I also have the line: AddHandler XReg.KeyPress AddressOf KeyPressed right after: InitializeComponent() Where XReg is the name of the textbox I'm using for input. The routine I have so far is as follows: Public Sub KeyPressed(ByVal sender As System.Object ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles XReg.KeyPress Dim nKey As Integer = 0 nKey = Integer.Parse(E.KeyChar) MsgBox(Main.KeyPressed: nKey= & nKey) Select Case nKey Case Is = 8 'Backspace CalcBS_Click(sender E) Case Is = 13 'Enter Ent_Click(sender E) Case Is 47 'Trap Numeric key from 0 to 9 CalcNum_Click(sender E) End Select Case Is = 69 'Enter Exponent EEX_Click(sender E) Case Is = 72 'Help MHIndex_Click(sender E) Case Is = 82 'Recall routine CalcRecall_Click(sender E) Case Is = 83 'Store routine CalcStore_Click(sender E) Case Is 95 'Trap Numeric Keypad key from 0 to 9 CalcNum_Click(sender E) End Select Case Is = 106 'Multiplication Times_Click(sender E) Case Is = 107 'Addition Plus_Click(sender E) Case Is = 109 'Subtraction Minus_Click(sender E) Case Is = 110 'Decimal point CalcNum_Click(sender E) Case Is = 111 'Division Divide_Click(sender E) Case Else MsgBox(Main.KeyPressed: Error nKey= & nKey) End Select End Sub

kovan · Answer

in the form set the KeyPreview to true and in the KeyPress event of the form u can trap all the keys look up a KeyPress event for form in the help

spock 0 · Answer

And of course I posted my first post in the wrong forum! If there are moderators here would you please move this to the VB.NET forum?