在txtFields_keypress过程中,为何不响应up arrow(即上箭头键)，但是响应回车键？

Question

Private Sub txtFields_keypress(index As Integer, keyascii As Integer)
If keyascii = 13 Then
   If index = 2 Then
      cmdUpdate.SetFocus
   Else
      txtFields(index + 1).SetFocus
   End If
End If
If keyascii = 5 Then '或将5改称vbkeyup也不起作用
   If index = 0 Then
      cmdUpdate.SetFocus
    Else
      txtFields(index - 1).SetFocus
    End If
End If
If keyascii = 24 Then
   If index = 2 Then
      cmdUpdate.SetFocus
    Else
      txtFields(index + 1).SetFocus
    End If
End If
   
End Sub

Answer 1

keypress只能响应可打印字符和编辑键。
改用keydown。

Answer 2

对,在Keypress中没有响应全部的控制键,如果想要对它进行处理,在KeyDown或KeyUp事件中进行判断.

Answer 3

写到keydown事件中
你可以看keycode

Answer 4

Private Sub txtFields_KeyDown(index As Integer, KeyCode As Integer, Shift As Integer)