用VB编写键盘拦截程序

 

用VB编写键盘拦截程序

---

　　我们知道，在一些程序中，有一些快捷方式(如：Shift键最小化、ESC键退出、Ctrl＋S存盘、Alt＋x退出等等)。以前有一些介绍使用Win32 API可以做到，但过于繁琐，其实VB本身已经给我们提供了这个功能。
　　我们来新建一个窗体Form1，对于键盘操作可以看到有三个事件KeyPress()，KeyDown和KeyUp，下面我对它们分别介绍：
　　KeyPress()事件是当用户按下和松开一个 ANSI 键时发生(ANSI是可见ASCII字符1－127)。
　　语法
　　Private Sub object_KeyPress([index As Integer,]keyascii As Integer)
　　KeyPress 事件语法包含下列部分：
　　 部分 描述
　　object 一个对象表达式，其值是“应用于”列表中的一个对象。
　　index 一个整数，它用来唯一标识一个在控件数组中的控件（仅有控件数组时才有）。
　　keyascii 是返回一个标准数字 ANSI 键代码的整数。Keyascii 通过引用传递，对它进行改变可给对象
　　发送一个不同的字符。将 keyascii 改变为 0 时可取消击键，这样一来对象便接收不到字符。
　　说明
　　具有焦点的对象接收该事件。一个窗体仅在KeyPreview 属性被设置为 True 时才能接收该事件。一个 KeyPress 事件可以引用任何可打印的键盘字符，一个来自标准字母表的字符或少数几个特殊字符之一的字符与 CTRL 键的组合，以及 ENTER 或BACKSPACE键。KeyPress()事件过程在截取 TextBox 或