码迷,mamicode.com
首页 > Windows程序 > 详细

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

时间:2015-03-28 08:50:04      阅读:175      评论:0      收藏:0      [点我收藏+]

标签:vb-net   窗体捕捉键值   

之前一直苦苦纠结怎么实现这个问题,今天无意间发现了 窗体上有 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

但是,不幸的是这种方式不能捕捉到F1-F12,以及一些特殊的键,比如shift等

当然还可以用handles me.keyup也是可以实现的

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

标签:vb-net   窗体捕捉键值   

原文地址:http://blog.csdn.net/fantasydreams/article/details/44694439

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!