Public Class frmTestKey
Private Sub txtTestRegion_KeyDown(ByVal sender As System.Object,_@H_404_3@ ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtTestRegion.KeyDown@H_404_3@ '<Shift>+<Ctrl>+<...>组合测试@H_404_3@ If e.Shift And e.Control Then@H_404_3@ Select Case e.KeyCode@H_404_3@ Case Keys.F1@H_404_3@ MsgBox("按<Shift>+<Ctrl>+<F1>")@H_404_3@ Case Keys.F2@H_404_3@ MsgBox("按<Shift>+<Ctrl>+<F2>")@H_404_3@ End Select@H_404_3@ Exit Sub@H_404_3@ End If@H_404_3@ '<Shift>+<...>组合测试@H_404_3@ If e.Shift Then@H_404_3@ Select Case e.KeyCode@H_404_3@ Case Keys.Home@H_404_3@ MsgBox("按<Shift>+<HOME>")@H_404_3@ Case Keys.End@H_404_3@ MsgBox("按<Shift>+<END>")@H_404_3@ End Select@H_404_3@ Exit Sub@H_404_3@ End If@H_404_3@ '<Ctrl>+<...>组合测试@H_404_3@ If e.Control Then@H_404_3@ Select Case e.KeyCode@H_404_3@ Case Keys.Add@H_404_3@ MsgBox("按<Ctrl>+<+>")@H_404_3@ Case Keys.Subtract@H_404_3@ MsgBox("按<Ctrl>+<->")@H_404_3@ End Select@H_404_3@ Exit Sub@H_404_3@ End If@H_404_3@ '<Alt>+<...>组合测试@H_404_3@ If e.Alt Then@H_404_3@ Select Case e.KeyCode@H_404_3@ Case Keys.Multiply@H_404_3@ MsgBox("按<Alt>+<*>")@H_404_3@ Case Keys.Divide@H_404_3@ MsgBox("按<Alt>+</>")@H_404_3@ End Select@H_404_3@ Exit Sub@H_404_3@ End If@H_404_3@ '<...>测试@H_404_3@ Select Case e.KeyCode@H_404_3@ Case Keys.Left@H_404_3@ MsgBox("按<←>")@H_404_3@ Case Keys.Right@H_404_3@ MsgBox("按<→>")@H_404_3@ End Select@H_404_3@ lblKeyOther.Text = e.KeyCode@H_404_3@ End Sub
@H_404_3@ Private Sub txtTestRegion_KeyUp(ByVal sender As System.Object,_@H_404_3@ ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtTestRegion.KeyUp@H_404_3@ '<Shift>+<Ctrl>+<...>组合测试@H_404_3@ If e.Shift And e.Control Then@H_404_3@ Select Case e.KeyCode@H_404_3@ Case Keys.F3@H_404_3@ MsgBox("松<Shift>+<Ctrl>+<F3>")@H_404_3@ Case Keys.F4@H_404_3@ MsgBox("松<Shift>+<Ctrl>+<F4>")@H_404_3@ End Select@H_404_3@ Exit Sub@H_404_3@ End If@H_404_3@ '<Shift>+<...>组合测试@H_404_3@ If e.Shift Then@H_404_3@ Select Case e.KeyCode@H_404_3@ Case Keys.PageDown@H_404_3@ MsgBox("松<Shift>+<PageDown>")@H_404_3@ Case Keys.PageUp@H_404_3@ MsgBox("松<Shift>+<PageUp>")@H_404_3@ End Select@H_404_3@ Exit Sub@H_404_3@ End If@H_404_3@ '<Ctrl>+<...>组合测试@H_404_3@ If e.Control Then@H_404_3@ Select Case e.KeyCode@H_404_3@ Case Keys.Delete@H_404_3@ MsgBox("松<Ctrl>+<Delete>")@H_404_3@ Case Keys.Insert@H_404_3@ MsgBox("松<Ctrl>+<Insert>")@H_404_3@ End Select@H_404_3@ Exit Sub@H_404_3@ End If@H_404_3@ '<Alt>+<...>组合测试@H_404_3@ If e.Alt Then@H_404_3@ Select Case e.KeyCode@H_404_3@ Case Keys.D1@H_404_3@ MsgBox("松<Alt>+<1>")@H_404_3@ Case Keys.D2@H_404_3@ MsgBox("松<Alt>+<2>")@H_404_3@ End Select@H_404_3@ Exit Sub@H_404_3@ End If@H_404_3@ '<...>测试@H_404_3@ Select Case e.KeyCode@H_404_3@ Case Keys.Up@H_404_3@ MsgBox("松<↑>")@H_404_3@ Case Keys.Down@H_404_3@ MsgBox("松<↓>")@H_404_3@ End Select
End Sub
End Class
原文链接:https://www.f2er.com/vb/260995.html