Vb.net在窗体上而非textbox控件上捕捉键盘上按下的键

最新推荐文章于 2025-05-21 11:48:33 发布

原创最新推荐文章于 2025-05-21 11:48:33 发布 · 2.1k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#vb-net #窗体捕捉键值

.NET 专栏收录该内容

1 篇文章

订阅专栏

本文介绍了如何通过设置窗体的keypreview属性为true来捕获键盘事件，并提供了两种实现方式，包括使用form_keydown和form_keypress方法，分别演示了如何响应Esc、F4和F5按键。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

之前一直苦苦纠结怎么实现这个问题，今天无意间发现了窗体上有 keypriview这个属性
这里写图片描述
后经过查找相关资料，了解它是用于窗体捕捉键盘上按下的键

只要新建一个窗体，将此属性设置为true，便可以轻松实现这个功能。

方法一：
使用提交为 me.keydown完成

    Private Sub form_keypress(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Escape Then
            Dim messge As New MSG
            messge.head.Text = "即将退出系统"
            messge.msgP.Text = "按下enter退出系统，esc返回..."
            messge.Show()
        End If
        If e.KeyCode = Keys.F4 Then
            Dim messge As New MSG
            messge.head.Text = "F4"
            messge.msgP.Text = "你按下了F4"
            messge.Show()
        End If
        If e.KeyCode = Keys.F5 Then
            Dim messge As New MSG
            messge.head.Text = "F5"
            messge.msgP.Text = "你按下了F5"
            messge.Show()
        End If
    End Sub

这样可以轻松捕捉键盘上的所有键
esc举例：
这里写图片描述
F4 举例

F5举例

这里再例举一种方法:handles me.keypress

 Private Sub form_keypress(sender As Object, e As KeyPressEventArgs) Handles Me.KeyPress
        If e.KeyChar = ChrW(27) Then
            Dim messge As New MSG
            messge.head.Text = "即将退出系统"
            messge.msgP.Text = "按下enter退出系统，esc返回..."
            messge.Show()
        End If
        If e.KeyChar = Chr(115) Then
            Dim messge As New MSG
            messge.head.Text = "F4"
            messge.msgP.Text = "你按下了F4"
            messge.Show()
        End If
        If e.KeyChar = Chr(116) Then
            Dim messge As New MSG
            messge.head.Text = "F5"
            messge.msgP.Text = "你按下了F5"
            messge.Show()
        End If
    End Sub