计算机二级VisualBasic辅导：“一键功能”的设计、实现与应用

一、简介
在Windows桌面上创建快捷方式的应用程序，通过设置其属性，可以实现一键调用程序的功能(即“一键功能”)。但如果每个常用程序都通过创建快捷方式来实现“一键功能”，桌面就会显得杂乱无章；如何既能为应用创建快捷方式，又能实现“一键功能”？下面介绍用VB编程实现“一键功能”的方法及其应用。
二。编程原理
API函数中有一个GetAsyncKeyState函数，其作用是在调用该函数时判断指定虚拟键的状态，即调用该函数时，该函数的语句，可以检测用户想要检测的键是否被按下，如下:
Private declare function GetAsyncKeyState lib " user 32 "(byval vKey as long)as integer
参数vKey表示你想要检测的键的扫描码，扫描码组成比如F1、F2、F3、A的扫描码分别是vbKeyF1、vbKeyF2、vbKeyF3、vbKeyA。如果用户按下指定的键，函数的返回值是小于0的整数，否则是大于等于0的整数。因此，可以根据返回值是否小于0来检测指定的按键是否被按下。这个函数还有一个非常好的特性，就是无论调用它的程序是在前台运行还是在后台运行，它都能检测到键盘上的某个键是否被按下(也就是函数一旦被调用，在整个系统内都有效)。利用这个特性，我们可以为某个功能键定义一个应用程序，然后用定时器实时检测该键的状态，在该键被按下时调用该应用程序，从而实现“一键功能”。
三。应用编程
用上面的原理来应用以下两个方面:1。一键调用编程实现的特定功能(过程功能)；2.一键调用Windows下安装的应用。
对于第一个方面的应用，主要是写一些具体功能的过程，比如关机、重启、开光驱、关光驱、锁屏。它的编程思路是(这些功能都是简单的通过调用API函数实现的，这里就不赘述了):程序运行时，先检查这些功能是否定义了快捷键(保存在FunctionKey.txt文件中)，如果没有，显示如图界面，让用户定义快捷键并保存。如果已经定义了，就读入具体函数的函数对应的数组元素，显示在应用界面的对应位置。此时，如果您按下一个已定义的功能键，当GetAsyncKeyState函数检测到它时，就会立即执行相应的进程。
对于第二个方面的应用，主要是让用户为自己常用的应用定义快捷方式(功能键和应用可以任意定义)，方便快捷的打开。它的编程思路和第一个一样。不同的是快捷键和对应的应用文件名(包括路径)都存储在CustomKey.txt文件中。读取文件时，快捷键和应用文件名分别读入不同的数组元素。
我们来练习一下吧。启动VB，新建一个名为AkeyFunction的项目，表单的文件名也是AkeyFunction。然后将下列控件添加到窗体中:两个框架、六个下拉组合框、五个命令按钮、八个标签、一个列表框、一个计时器和一个常规对话框。界面设计如图1所示(运行时计时器和常规对话框不可见)。修改后的表单名称为“一键式函数”，BorderStyle为1，ControlBox为False，Visible为False，KeyPreview为True两个框架的标题分别为“特定功能区”和“自定义功能区”；六个下拉组合框为一个数组，名为cmbChooseKey，文本为空；五个命令按钮的名称分别是cmdAdd、cmdDel、cmdOk、cmdCancel和cmdApply，标题分别是添加…、删除、确定、取消和应用。八个标签的标题分别是“提示:程序运行时按F12显示此界面”、“快捷键”、“特定功能”、“关机”、“重启”、“锁屏”、“打开光驱”、“关闭光驱”。的计时器间隔为200；常规对话框cmnAdd的名称；其他属性使用默认值。