Accepting Keyboard Input

Question

Ref: http://216.26.160.137/Forums/AspNetForums20/ShowPost.aspx?PostID=15315 The above reference is a topic I started in the wrong area. Since no one has been able (or inclined?) to answer it I thought I would call attention to it in the proper forum in the hopes that: 1. I won't get blasted for posting about the same problems in multiple fora and 2. I might get better help if the topic is mentioned in the correct area. I am writin a Calculator Simulator to teach myself VB .Net and want to be able to both click on the application buttons and use the numeric keypad as well. Additional information is in the referenced topic but I supose I'd better stay in here for all future communications. BTW I did ask if someone could move the topic into here but go no response at all.

MythicalMe · Answer

I forgot to check but after you are finished with the button click event do you redirect the focus back to the textbox control? ie. is the last line in the button click event: textbox.Focus ' change textbox to whatever name you've given the textbox

spock 0 · Answer

Thanks to MythicalMe I can now input numbers using my numeric keypad or the keyboard. The problems now are that I must first select the textbox using the mouse so it has focus and it just inputs numbers it doesn't accept any of the other keyboard input functions nor do the numbers act/react the same as when I click on the number keys in the form.

MythicalMe · Answer

I'll take a look at it. Don't send it to my hotmail account. I'll send you an address.

spock 0 · Answer

OK I got your code compiled it and it ran. I compared it to my code and it was very similar. So similar that I couldn't find the differences after I made the variable name substitutions. :( If I send you a copy of what I have would you mind taking a look and telling me where I went wrong? My Calculator simulator is RPN instead of Algebraic so it may be a bit harder to follow the logic but I'm hoping it will be simple enough you will be able to tell me where I went wrong.

spock 0 · Answer

Thank you. :)

MythicalMe · Answer

I did look for your address a couple of times. I assumed that you had your answer. I will send my solution to you Monday.

spock 0 · Answer

I have added my email address to my profile in human readable form but haven't heard from you. I can only assume you didn't notice it. If you would send me your code I will use it to try to get mine working. In any case I am willing to share what I now have with anyone who wishes to take a look.

spock 0 · Answer

Thanks craig. From the referenced topic in my first post I have copied the listing I've tried to get to work and pasted it in here. I say tried because I have yet to make it work. ============== 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

spock 0 · Answer

Profile modified ... kinda-sorta ... If I can get this problem solved I should probably submit mine for publication as well. I have tried to use as many different functions as I could and commented the code enout to make it useful to me later when I forgot what I was doing. It should also be useful to someone just starting out.

MythicalMe · Answer

I wrote a calculator just a bit ago. If you update your profile to include an e-mail address I'll send you the source so that you can see how I resolved the issues. Perhaps I'll even submit it for publication on VB.NET Heaven site.

cgcomp · Answer

Heres a quick example. Add a textbox to your form named Textbox1. FYI: If you were capturing Keys from the form itself you would have to set Form.KeyPreview=TRUE. Private Sub TextBox1_KeyPress(ByVal sender As Object ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress Select Case Asc(e.KeyChar) Case Keys.Enter ' ' ' Case Keys.Down ' ' ' Case Keys.Left Keys.Right ' ' ' Case Is > 10 Is < 20 ' ' ' End Select End Sub