键盘事件

Question

 Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
        If e.KeyChar = ChrW(13) Or e.KeyChar = ChrW(32) Then
            Call nextnasa()
        End If

    End Sub
大家帮我看一下窗体的KeyPress事件里写了这个代码，但我敲键盘一点反应都没有啊。在IF语句前面插入了断点，程序运行后敲键盘也没到设置的断点位置。这是为什么？

---

muradil

Answer 1

非字符键不会引发 KeyPress 事件；但非字符键却可以引发 KeyDown 和 KeyUp 事件。

---

http://feiyun0112.cnblogs.com/

Answer 2

  Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Space Then
            Call nextnasa()
        End If
    End Sub
怎么还是不行啊？

---

muradil

Answer 3

你好！
     非字符键不会引发 KeyPress 事件；如果你需要响应非字符键，可以使用KeyDown或KeyUp等事件！

---

周雪峰

Answer 4

你看啊，我用了keydown还是那样子啊。窗体的keydown中写了代码不起作用

---

muradil

Answer 5

你好！
     尝试把窗体的KeyPreview属性设置成true;

---

周雪峰

Answer 6

谢谢。搞定

---

muradil

Answer 7

不客气啊！

---

周雪峰