Which key is pressed

[airman00]

Hi,

what is the code for a program like this

IF Up key is pressed then display hello msgbox
Once up key is not pressed down anymore close hello msgbox and display goodbye msgbox



Thanks much appreciated

[Dungeon Keeper]

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    MsgBox ("hello")
End Sub

Private Sub Form_KeyUp(KeyAscii As Integer)
    MsgBox ("hello")
End Sub

[CDRIVE]

Hi,

what is the code for a program like this

IF Up key is pressed then display hello msgbox
Once up key is not pressed down anymore close hello msgbox and display goodbye msgbox



Thanks much appreciated

Option Explicit

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = 38 Then Print "You pressed the UP key."
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
   If KeyCode = 38 Then Print "You released the UP key."
End Sub


Private Sub Form_Load()
   Me.Show
   Me.KeyPreview = True
End Sub

[CDRIVE]

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    MsgBox ("hello")
End Sub

Private Sub Form_KeyUp(KeyAscii As Integer)
    MsgBox ("hello")
End Sub

I considered using a MsgBox, but they are Modal. Because of this your KeyUp code will never execute.

[Dungeon Keeper]

This works for me

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
      MsgBox ("UP")
End Sub

Edit: shi* i messed the code in post a little, my mistake
I fixed it now

[CDRIVE]

This works for me

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
      MsgBox ("UP")
End Sub

Edit: shi* i messed the code in post a little, my mistake
I fixed it now

I didn't mean as a stand alone code block. What you posted first executes the KeyDown event which fires a MsgBox. The MsgBox has to be cleared before any subsequent code will execute. By then the KeyUp event has long past.

You have the same message in both KeyDown & KeyUp events. Change the KeyUp message and you will understand what I'm saying, as it will never fire.

[CDRIVE]

This works for me

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
      MsgBox ("UP")
End Sub

Edit: shi* i messed the code in post a little, my mistake
I fixed it now

You are aware that you have the ability to edit your posts and your code? It's a better choice than leaving errors posted.