vb.net 快捷键盘的操作

最新推荐文章于 2020-12-01 12:29:14 发布

wl58796351

最新推荐文章于 2020-12-01 12:29:14 发布

阅读量1k

点赞数

分类专栏： vb.net 文章标签： vb.net 测试 class

本文链接：https://blog.csdn.net/wl58796351/article/details/6693115

版权

vb.net 专栏收录该内容

17 篇文章 1 订阅

订阅专栏

Public Class frmTestKey

    Private Sub txtTestRegion_KeyDown(ByVal sender As System.Object, _
    ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtTestRegion.KeyDown
        '<Shift>+<Ctrl>+<...>组合测试
        If e.Shift And e.Control Then
            Select Case e.KeyCode
                Case Keys.F1
                    MsgBox("按<Shift>+<Ctrl>+<F1>")
                Case Keys.F2
                    MsgBox("按<Shift>+<Ctrl>+<F2>")
            End Select
            Exit Sub
        End If
        '<Shift>+<...>组合测试
        If e.Shift Then
            Select Case e.KeyCode
                Case Keys.Home
                    MsgBox("按<Shift>+<HOME>")
                Case Keys.End
                    MsgBox("按<Shift>+<END>")
            End Select
            Exit Sub
        End If
        '<Ctrl>+<...>组合测试
        If e.Control Then
            Select Case e.KeyCode
                Case Keys.Add
                    MsgBox("按<Ctrl>+<+>")
                Case Keys.Subtract
                    MsgBox("按<Ctrl>+<->")
            End Select
            Exit Sub
        End If
        '<Alt>+<...>组合测试
        If e.Alt Then
            Select Case e.KeyCode
                Case Keys.Multiply
                    MsgBox("按<Alt>+<*>")
                Case Keys.Divide
                    MsgBox("按<Alt>+</>")
            End Select
            Exit Sub
        End If
        '<...>测试
        Select Case e.KeyCode
            Case Keys.Left
                MsgBox("按<←>")
            Case Keys.Right
                MsgBox("按<→>")
        End Select
        lblKeyOther.Text = e.KeyCode
    End Sub

    Private Sub txtTestRegion_KeyUp(ByVal sender As System.Object, _
    ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtTestRegion.KeyUp
        '<Shift>+<Ctrl>+<...>组合测试
        If e.Shift And e.Control Then
            Select Case e.KeyCode
                Case Keys.F3
                    MsgBox("松<Shift>+<Ctrl>+<F3>")
                Case Keys.F4
                    MsgBox("松<Shift>+<Ctrl>+<F4>")
            End Select
            Exit Sub
        End If
        '<Shift>+<...>组合测试
        If e.Shift Then
            Select Case e.KeyCode
                Case Keys.PageDown
                    MsgBox("松<Shift>+<PageDown>")
                Case Keys.PageUp
                    MsgBox("松<Shift>+<PageUp>")
            End Select
            Exit Sub
        End If
        '<Ctrl>+<...>组合测试
        If e.Control Then
            Select Case e.KeyCode
                Case Keys.Delete
                    MsgBox("松<Ctrl>+<Delete>")
                Case Keys.Insert
                    MsgBox("松<Ctrl>+<Insert>")
            End Select
            Exit Sub
        End If
        '<Alt>+<...>组合测试
        If e.Alt Then
            Select Case e.KeyCode
                Case Keys.D1
                    MsgBox("松<Alt>+<1>")
                Case Keys.D2
                    MsgBox("松<Alt>+<2>")
            End Select
            Exit Sub
        End If
        '<...>测试
        Select Case e.KeyCode
            Case Keys.Up
                MsgBox("松<↑>")
            Case Keys.Down
                MsgBox("松<↓>")
        End Select