KeyDown issue: cannot seem to capture it
Posted on 2008-06-18
Visual Basic 6
I have a simple slot machine type app that I run on a projector through a book pc.
It is just a cutesy program but it cannot be run with the mouse, it needs key input.
When you press "s" it runs, pressing the ESC key ends the program
it works flawlessly on the first try, but after the program executes once it will not recognize another keypress. There is nothing set when it executres, no focus or tab stops or anything, it just execute a shockwave flash object and then displays something in a text box.
Onbce it does that, I no longer get response to keypress events.
I do not know if this is a focus issue, tabstop or????
This is the code I have in the KeyDown
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 69 Then
ElseIf KeyCode = 101 Then
ElseIf KeyCode = 8 Then
ElseIf KeyCode = 13 Then
ElseIf KeyCode = 27 Then
ElseIf KeyCode = 115 Then
ElseIf KeyCode = 83 Then