怎样写这样一个过程！！？！一个简单，但我不会的问题！

[lubaixu]

问题是这样的：

怎么样实现按方向键后就触发一个过程。
比如我有一个过程add
我想按下"上、下、左、右"中的其中一键来调用add

[goodname008]

' 是这个意思？

Option Explicit

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Debug.Print KeyCode
add
End Sub

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

Private Sub add()
Debug.Print "add过程被调用"
End Sub

[luoxiaoxiang]

窗口的KeyPreview 设置为 True
Option Explicit

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim a As Integer
a = KeyCode
If a > 36 And a < 41 Then
add
End If
End Sub

Private Sub add()
Print "asdfffgg"
End Sub

[online]

窗口的KeyPreview =True
Option Explicit

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim txt As String
txt = txt + Chr(KeyCode)
Text1.Text = "你按下的是 " + txt
'你可以看到方向健的keycode值，然后判断调用add
End Sub

Private Sub add()
MsgBox "ok"
End Sub

[chinaren502]

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
if keycode=vbkeyup then
call add
end if
End Sub