VB6.0键盘触发事件探讨

黄冈师范学院学报　第２６卷　Ｊｏｕｒｎａｌ　ｏｆ　Ｈｕａｎｇｇａｎｇ　Ｎｏｒｍａｌ　Ｕｎｉｖｅｒｓｉｔｙ　ＶＢ６．０键盘触发事件探讨　汪学良　（黄冈师范学院计算机科学与技术学院，湖北黄冈４３８０００）　摘要：简略介绍了在ＶＢ６．０中如何应用键盘事件及调用ＡＰＩ（Ａｐｐｌｉｃａｔｉｏｎ　ｐｒｏｇｒａｍ　ｉｎｔｅｒｆａｃｅ应用程序接　口）函数进行键盘输入编程技术，并给出了相应的实例。　关键宇：ＶＢ；键盘输入；键盘事件　ＶＢ６．０程序设计中主要是通过响应键盘事件来处理用户输入的，ＶＢ系统为对象主要提供了三种　键盘事件：ＫｅｙＰｒｅｓｓ、ＫｅｙＵｐ和ＫｅｙＤｏｗｎ事件。这些事件不仅提供了响应键盘的操作方法，而且还提供　了进行数据输入的手段以及在窗户和菜单中移动的基本形式。ＶＢ系统为对象主要提供了三种键盘事　件是：　ＫｅｙＰｒｅｓｓ事件　当用户按下ＡＳＣＩＩ字符键时触发。　ＫｅｙＤｏｗｎ事件　当用户按下键盘的任意键盘时触发。　ＫｅｙＵｐ事件　当用户释放键盘的任意键时触发。　１键盘事件使用详解　１．１　ＫｅｙＰｒｅｓｓ事件：在按下ＡＳＣＩＩ字符相应的按键时触发ＫｅｙＰｒｅｓｓ事件。ＡＳＣＩＩ字符集不仅代表标　准键盘字母、数字和标点符号，而且也代表大多数控制键。但ＫｅｙＰｒｅｓｓ事件只识别Ｅｎｔｅｒ、Ｔａｂ和　ＢａｃｋＳｐａｃｅ键。在编程过程中，无论何时要处理ＡＳＣＩＩ字符都应使用ＫｅｙＰｒｅｓｓ事件。　Ｋｅｙｐｒｅｓｓ事件用法如下：　Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｆｏｒｍ　ＫｅｙＰｒｅｓｓ（ＫｅｙＡｓｃｉｉ　Ａｓ　Ｉｎｔｅｇｅｒ）　ＫｅｙＡｓｃｉｉ参数返回中的ＡＳＣＩＩ代码的整型数值。ＫｅｙＡｓｃｉｉ参数的返回值是经过处理的，小键盘上　的数字键与打字键盘上的数字键盘相同的ＡＳＣＩＩ码值，表示相同的字符；而对于相同字母的大写状态　和小写状态，ＫｅｙＡｓｃｉｉ参数则返回不同的ＡＳＣＩＩ码值，表示相同的字符；而对于相同字母的大写状态和　小写状态，ＫｅｙＡｓｃｉｉ参数则返回不同的ＡＳＣＩＩ码值，能区分字母的大小写。　在窗体的ＫｅｙＰｒｅｓｓ事件中编写如下码，可以测试ＫｅｙＰｒｅｓｓ事件识别的键：　Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｆｏｒｍ　ＫｅｙＰｒｅｓｓ（ＫｅｙＡｓｃｉｉ　Ａｓ　Ｉｎｔｅｇｅｒ）　Ｐｒｉｎｔ“你按了”８　ｈｒ（ＫｅｙＡｓｃｉｉ）８　键，键码”￣ＫｅｙＡｓｃｉｉ　Ｅｎｄ　Ｓｕｂ　程序中可以通过修改ＫｅｙＡｓｃｉｉ参数的返回值，使参数通过引用传递改变用户的输人。如大小定转　换、密码转换等。　１．２　ＫｅｙＤｏｗｎ和ＫｅｙＵｐ事件　ＫｅｙＤｏｗｎ事件和ＫｅｙＵｐ事件提供了最低级和最底级的键响应，这对用户来说是最基本和最直接　的。ＫｅｙＤｏｗｎ事件是在用户按下键时触发，ＫｅｙＵｐ事件是释放键时触发，但不一定一一对应，当用户按　住按键时，连续触发ＫｅｙＤｏｗｎ事件，当用户释放该按键时，只触发一次ＫｅｙＤｏｗｎ事件和ＫｅｙＵｐ事件　可以检测到ＫｅｙＰｒｅｓｓ事件不能检测到的下列情况：　收稿日期：２００６—０５—２２．　作者简介：汪学良（１９７３－－），男，湖北黄冈人，硕士，黄冈师范学院计算机与科学技术学院教师。　维普资讯 http://www.cqvip.com

（１）响应Ｓｈｉｆｔ、Ｃｔｒｌ和Ａｌｔ键的按键动作，以及三个键的特殊组合；　（２）箭头方向键。某些控件，如命令按钮、选择按钮和复选框，不响应方向事件，按下方向键只会将　焦点移动到下一个控件；　（３）Ｅｓｃ，Ｃｔｒｌ，Ｎｕｍｌｏｃｋ，Ｐａｇｅ　Ｕｐ和Ｐａｇｅ　Ｄｏｗｎ等功能键；　（４）区分小键盘的数字键与打字键盘的数字键；　（５）不仅响应按键盘操作而且响应释放键操作（ＫｅｙＰｒｅｓｓ只响应按键操作）；　（６）与菜单无关功能键（Ｆ１￣Ｆ１２）。　ＫｅｙＤｏｗｎ和ＫｅｙＵｐ事件返回用户按键的键盘码、特殊键的状态等参数，其用法为：　Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｆｏｒｍ　ＫｅｙＤｏｗｎ（ＫｅｙＣｏｄｅ　Ａｓ　Ｉｎｔｅｇｅｒ．Ｓｈｉｆｔ　Ａｓ　Ｉｎｔｅｇｅｒ）　ＫｅｙＣｏｄｅ参数批示按下的物理键，返回用户所按按键准确位置的键盘码，而不是用户输人的内容，　键盘上每一个按键分别对应不同的键盘码。　ＫｅｙＣｏｄｅ参数是通过键盘码或键代码常数来识别键。ＶＢ系统提供了键代码常数与对应的ＡＳＣＩＩ　码值的完整列表，用户可以通过ＶＢ系统中的对象游览器来查询。在ＶＢ系统的集成环境中按Ｆ２键，或　点击相应的菜单项打开对象游览器，搜索ＫｅｙＣｏｄｅＣｏｎｓｔａｎｔｓ类获得ＫｅｙＣｏｄｅＣｏｎｓｔａｎｔｓ详细列表。　例如，字母“ｂ”键码为（￣１１４２），键代码常数是ｖｂＫｅｙＢ。判断用户按下的是否是“Ｂ”键，可以用下面　的程序来判断：　Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｆｏｒｍ　ＫｅｙＤｏｗｎ（ＫｅｙＣｏｄｅ　Ａｓ　Ｉｎｔｅｇｅｒ．Ｓｈｉｆｔ　Ａｓ　Ｉｎｔｅｇｅｒ）　Ｉｆ　ＫｅｙＣｏｄｅ—ｖｂＫｅｙＢ　Ｔｈｅｎ　Ｐｒｉｎｔｆ“你按了Ｂ键盘、键盘码为’＇￣ＫｅｙＣｏｄｅ　Ｐｒｉｎｔｆ“此处编写事件处理程序”　Ｅｎｄ　Ｉｆ　Ｅｎｄ　Ｓｕｂ　Ｓｈｉｆｔ参数是用来在键盘事件发生时记录Ｓｈｉｆｔ、Ｃｔｒｌ和Ａｌｔ键状态的一个整数，它使用３位二进制　表示Ｓ￣ｉｆｔ、Ｃｔｒｌ和Ａｌｔ键的操作状态：　１．３键盘技术应用技术　ＫｅｙＰｒｅｓｓ事件、ＫｅｙＤｏｗｎ事件和ＫｅｙＵｐ事件触发的条件和时间各不相同，ＫｅｙＤｏｗｎ事件在按下　键时触发。即按下一个键首先触发ＫｅｙＤｏｗｎ事件，然后触发ＫｅｙＰｒｅｓｓ事件，最后触发ＫｅｙＵｐ事件。　如果在ＴｅｘｔＢｏｘ控件三个键盘事件的处理程序中，使用了ＭｓｇＢｏｘ，ＳｅｔＦｏｃｕｓ方法会截断后面的　键盘事件，如果用Ｅｎｔｅｒ键来响应ＭｓｇＢｏｘ，ＭｓｇＢｏｘ只处理ＫｅｙＰｒｅｓｓ和ＫｅｙＤｏｗｎ事件和ＫｅｙＤｏｗｎ　事件，而ＫｅｙＵｐ事件消息将会触发ＴｅｘｔＢｏｘ控件。下面的程序可以验证：　Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｔｅｘｔ１　ＫｅｙＤｏｗｎ（ＫｅｙＣｏｄ￣Ａｓ　Ｉｎｔｅｇｅｒ　Ｓｈｉｆｔ　Ａｓ　Ｉｎｔｅｒ）　Ｐｒｉｎｔ“ＫｅｙＤｏｗｎ事件发生”　ＭｓｇＢｏｘ（“ＫｅｙＤｏｗｎ事件发生”）　Ｅｎｄ　Ｓｕｂ　Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｔｅｘｔ１　Ｋｅｙｐｒｅｓｓ（ＫｅｙＡｓｃｉｉ　Ａｓ　Ｉｎｔｅｇｅｒ）　Ｐｒｉｎｔ“ＫｅｙＤｏｗｎ事件发生”　ＭｓｇＢｏｘ（“ＫｅｙＰｒｅｓｓ事件发生”）　Ｅｎｄ　ＳＵｂ　维普资讯 http://www.cqvip.com

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｔｅｘｔｉ　ＫｅｙＵｐ（ＫｅｙＣｏｄｅ　Ａｓ　Ｉｎｔｅｇｅｒ．Ｓｈｉｆｔ　Ａｓ　Ｉｎｔｅｇｅｒ）　Ｐｒｉｎｔ“ＫｅｙＵｐ事件发生”　Ｍｓｇｂｏｘ（“ＫｅｙＵｐ事件发生”）　Ｅｎｄ　ｓｕｂ　虽然ＫｅｙＤｏｗｎ和ＫｅｙＵｐ事件比ＫｅｙＰｒｅｓｓ事件接收的键值要多，但ＫｅｙＰｒｅｓｓ事件可以使输入的　键无效，而编写的键盘事件处理程序中，完成所有处理操作后，把ＫｅｙＡｓｅｉｉ或Ｋｅｙｃｏｄｅ设置为０。　１．４示例程序　（１）小写转换　如果程序中整个窗体都需要强制用户输入大写字母，可在窗体的ＫｅｙＰｒｅｓｓ事件加入如下程序：　Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｆｏｒｍ　ＫｅｙＰｒｅｓｓ（ＫｅｙＡｓｃｉｉ　Ａｓ　Ｉｎｔｅｇｅｒ）　Ｉｆ　ＫｅｙＡｓｃｉｉ＞＝Ａｓｃ（“ａ”）Ａｎｄ　ＫｅｙＡｓｃｉｉ＜一Ａｓｃ（“ｚ”）Ｔｈｅｎ’判断输入是否为小字　ＫｅｙＡｓｃｉｉ—Ａｓｃ（Ｕｃａｓｅ（Ｃｈｒ（ＫｅｙＡｓｃｉｉ）））’母。　Ｅｎｄ　Ｉｆ　Ｅｎｄ　Ｓｕｂ　该程序只将输入的小写字母转换成大写字母，不影响其它输入。　（２）密文输入　如果程序中要求输入的字符和屏幕显示的字符不一至，即只有输入者才知道的密文，就要在Ｋｅｙ—　Ｐｒｅｓｓ（ＫｅｙＡｓｃｉｉ　Ａｓ　Ｉｎｔｅｇｅｒ）　ＰａｓｓＴｅｘｔ—ＰａｓｓＴｅｘｔ　Ｃｈｒ（ＫｅｙＡｓｃｉｉ）　ＫｅｙＡｓｃｉｉ＝ＫｅｙＡｓｃｉｉ　Ｅｎｄ　Ｓｕｂ　上面的代码使用户输入的字符和Ｔｅｘｔ１控件中显示的字符在字符表中移了一位，即输入“Ａ”，显示　为“Ｂ”。当然，一个完整的密文输入程序不是几句就解决。　（３）数据合法性试验　下面的程序对键盘输入进行数据合法性的效验，输入完毕后按Ｅｎｔｅｒ键，输入焦点自动跳到下一个　输入框等待用户。　Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｔｅｘｔｉ　ＫｅｙＤｏｗｎ（ｋｅｙＣｏｄｅ　Ｉｎｔｅｒ．Ｓｈｔｅｇｅｒ．Ｓｈｉｆｔ　Ａｓ　Ｉｎｔｅｇｅｒ）　Ｉｆ　ＫｅｙＣｏｄｅ＝１　３　Ｏｒ　ＫｅｙＣｏｄｅ＝ｖｂＫｅｙｄｏｗｎ　Ｏｒ　ＫｅｙＣｏｄｅ＝ｖｂＫｅｙＵｐ　Ｔｈｅｎ　Ｉｆ　Ｖａｌ（Ｔｅｘｔ１）＞一１０　Ｔｈｅｎ　ＭｓｇＢｏｘ“Ｔｅｘｔ１必须小于１０７”　Ｔｅｘｔ　ｌＩ　ＳｅｔＦｏｃｕｓ　Ｔｅｘｔ１．ＳｅｌＳｔａｒｔ＝０　Ｔｅｘｔｉ．ＳｅｌＬｅｎｇｔｈ＝Ｌｅｎ（Ｔｅｘｔ１）　Ｅｘｉｔ　Ｓｕｂ　Ｅ：ｌｓｅ　Ｉｆ　ＫｅｙＣｏｄｅ＝ｖｂＫｅｙＵｐ　Ｔｈｅｎ　ＳｅｎｄＫｅｙｓ“（ｔａｂ、”　Ｅｌｓｅ　ＳｅｎｄＫｅｙｓ“＋｛ｔａｂ｝’’　Ｅｎｄ　ｉｆ　Ｅｎｄ　ｉｆ　Ｅｎｄ　ｉｆ　Ｅｎｄ　Ｓｕｂ　上述程序稍加改进就可以输入固定格式小数的功能，这在数值计算程序中非常有用。　２调用ＡＰＩ函素处理键盘输入　在ＶＢ程序中，如果在窗体或控件响应键盘事件之前处理键盘输入实现对键盘输入的全面控制，这　维普资讯 http://www.cqvip.com

・ｌＯＯ・　就是调要Ｗｉｎｄｏｗｓ和ＡＰＩ函数来实现。下面的程序截获Ａｌｔ＋Ｃ组合键操作，并将操作转移到Ｃｏｒｎ—　ｍａｎｄｉ按钮Ｃｌｉｃｋ事件处理程序中。程序的详细代码如下：　在模块的通用声明部分添加如下声明语句：　Ｐｕｂｌｉｃ　Ｄｅｃｌａｒｅ　Ｆｕｎｃｔｉｏｎ　ＣａｌｌＮｅｘｔＨｏｏＥｘ　Ｌｉｂ“ｕｓｅｒ３２”（ＢｙＶａｌｈＨｏｏｋ　Ａｓ　Ｌｏｎｇ，Ｂｙｖａｌ　ｎＣｏｄｅ　Ａｓ　Ｌｏｎｇ　Ｂｙｖａｌ　ｗＰａｒａｍ　ａｓ　ｌｏｎｇ．Ｂｙｖａｌ　Ｉｐａｒａｍ　ａｓ　ｌｏｎｇ）Ａｓ　ｌｏｎｇ　ｐｕｂｌｉｃ　Ｄｅｃｌａｒｅ　Ｆｕｎｃｔｉｏｎ　Ｕｎｈｏｏｋ　Ｗｉｎｄｏｗｓ　ＨｏｏｋＥＸ　ｌｉｂ”ｕｓｅｒ３２”（Ｂｙｖａｌ　ｈＨｏｏｋ　Ａｓ　Ｌｏｎｇ）Ａｓ　Ｌｏｎｇ．　Ｐｕｂｌｉｃ　Ｄｅｃｌａｒｅ　Ｆｕｎｃｔｉｏｎ　Ｓｅｔ　ＷｉｎｄｏｗｓＨｏｏｋＥＸ　Ｌｉｂ“ｕｓｅｒ３２”Ａｌｉａｓ“Ｓｅｔ　Ｗｉｎｄｏｗｓ　ＨｏｏｋＥＸＡ”（Ｂｙｖａｌ　ｉｄＨｏｏｋ　Ａｓ　Ｌｏｎｇ．ＢｙＶＡＬ　Ｉｐｆｎ　Ａｓ　Ｌｏｎｇ．Ｂｙｖａｌ　ｈｍｏｄ　Ａｓ　ｌｏｎｇ　ｐｕｂｌｉｃ　Ｄｅｃｌａｒｅ　Ｆｕｎｃｔｉｏｎ　ＰｏｓｔＭｅｓｓａｇｅ　Ｌｉｂ“ｕｓｅｒ３２”Ａｌｉａｓ“ｐｏｓｔ　ＭｅｓｓａｇｅＡ”（Ｂｙｖａｌ　ｈｗｎｄ　Ａｓ　Ｌｏｎｇ，Ｂｙｖａｌ　ｗＭｓｇ　Ａｓ　Ｌｏｎｇ，Ｂｙｖａｌ　ｗＰａｒａｍ　Ａｓ　ｌｏｎｇ，ＢｙｖａｌｌＰａｒａｍ　Ａｓ　ｌｏｎｇ）Ａｓ　Ｌｏｎｇ　Ｇｌｏｂａｌ　ｈＨｏｏｋ　Ａｓ　Ｌｏｎｇ　在模块中建之Ｋｅｙｂｐ函数，该函数在ＶＢ窗体和控件响应键盘事件之前处理键盘输人：　Ｐｕｂｌｉｃ　Ｆｕｎｃｔｉｏｎ　Ｋｅｙｂｐ（ＢｙＶａｌ　ｎＣｏｄｅ　Ａｓ　Ｌｏｎｇ．ＢｙＶａｌ　ｗＰａｒａｍ　Ａｓ　Ｌｏｎｇ　ＢｕｙＶａｌ１　Ｐａｒａｍ　Ａｓ　Ｌｏｎｇ）Ａｓ　Ｌｏｎｇ　Ｉｆ　ｎＣｏｄｅ＞＝Ｏ　Ｔｈｅｎ’处理要过滤的键　Ｉｆ（Ｉｐａｒａｍ　Ａｎｄ＆ＨＣＯ０００００）一０　Ｔｈｅｎ　Ｆｏｒｍ１．Ｃｏｍｍａｎｄ１．ＳｅｔＦｏｃｕｓ　Ｃａｌｌ　ＰｏｓｔＭｅｓｓａｇｅ（Ｆｏｒｍ１．Ｃｏｍｍａｎｄ１．ｈｗｎｄ．＆Ｈ２０１．Ｏ＆ｈ２ＯＯ２）　Ｃａｌｌ　ＰｏｓｔＭｅｓｓａｇｅ（Ｆｏｒｍ１．Ｃｏｍｍａｎｄ　１．ｈｗｎｄ．＆ｈ２Ｏ２．０．＆Ｈ２００２）　Ｋｅｙｂｐ＝ｌ　Ｅｘｉｔ　Ｆｕｎｃｔｉｏｎ　Ｅｎｄ　Ｉｆ　Ｅｎｄ　Ｉｆ　Ｅｎｄ　Ｉｆ　ＫｅｙｂＰ＝ＣａｌｌＮｅｘｔＨｏｏｋＥｘ．ｈＨｏｏｋ．ｎＣｏｄｅ．ｗＰａｒａｍ．Ｉｐａｒａｍ）　Ｅｎｄ　Ｆｕｎｃｔｉｏｎ　在窗体Ｆｏｒｍｌ的Ｌｏａｄ事件中将ＫｅｙｂＰ函数连到中断上　Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｆｏｒｍ　Ｌｏａｄ（）　ｈＨｏｏｋ＝ＳｅｔＷｉｎｄｏｗｓＨｏｏｋＥｘ（２．Ａｄｄｒｅｓｓ　Ｏｆ　ＫｅｙｂＰ．０＆Ａｐｐ．ＴｈｒｅａｄＩＤ）　Ｅｎｄ　Ｓｕｂ　在窗体Ｆｏｒｍｌ的ＵｎＬｏａｄ事件中将ｋｅｙｂＰ函数脱离中断　Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｆｏｒｍ　Ｕｎｌｏａｄ（Ｃａｎｃｅｌ　Ａｓ　Ｉｎｔｅｇｅｒ）　Ｃａｌｌ　ＵｎｈｏｏｋＷｉｎｄｏｗｓＨｏｏｋＥｘ（ｈＨｏｏｋ）　Ｅｎｄ　Ｓｕｂ　在窗体Ｆｏｒｍｌ的Ｃｏｍｍａｎｄ１按钮中添加消息提示　Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｃｏｍｍａｎｄ　ｌ　Ｃｌｉｃｋ（）　ＭｓｇＢｏｘ（“你按了Ａｌｔ＋Ｃ键！”）　Ｅｈｄ　Ｓｕｂ　３结束语　ＶＢ系统中有许多可接受键盘输入触发键盘事件的控件，本文不一一列举。有的控件键盘事件可能　略有不同，按照本文中给出的程序做一些简单实验就可以测试出来。　责任编辑周觅