rwp2Lehigh
Solid State Member
- Messages
- 15
Ok,
I tried what you said, but I can't get it working. I'm going to post the relevant part of the code and maybe you can see the mistake from it. I really appreciate all the help everyone...
Private Sub frmCalc_load()
frmCalc.KeyPreview = True
frmCalc.SetFocus
End Sub
Private Sub frmCalc_Keyup(Keycode As Integer, Shift As Integer)
MsgBox ("Key was pressed")
Select Case Keycode
Case Asc("0")
Call btn0_Click
Case Asc("1")
Call btn1_Click
Case Asc("2")
Call btn2_Click
End Select
End Sub
Any ideas?
I tried what you said, but I can't get it working. I'm going to post the relevant part of the code and maybe you can see the mistake from it. I really appreciate all the help everyone...
Private Sub frmCalc_load()
frmCalc.KeyPreview = True
frmCalc.SetFocus
End Sub
Private Sub frmCalc_Keyup(Keycode As Integer, Shift As Integer)
MsgBox ("Key was pressed")
Select Case Keycode
Case Asc("0")
Call btn0_Click
Case Asc("1")
Call btn1_Click
Case Asc("2")
Call btn2_Click
End Select
End Sub
Any ideas?