楼主:真是高人(编程水平加逻辑思维)!!!
另:我来代楼主发一个原程序,省得大家找的麻烦!
GNN4Ho4b.rar
(60.53 KB, 下载次数: 347)
程序中的api函数相关说明如下:
GetAsyncKeyState API函数说明
VB声明 |
Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer |
说明 |
判断函数调用时指定虚拟键的状态 |
返回值 |
Long,自对GetAsyncKeyState函数的上一次调用以来,如键已被按过,则位0设为1;否则设为0。如键目前处于按下状态,则位15设为1;如抬起,则为0。微软的win32手册指出:倘若输入焦点从属于与调用函数的输入线程不同的另一个输入线程,则返回值为0(例如,一旦另一个程序拥有焦点,则它应返回零)。证据显示,函数实际是在整个系统的范围内工作的 |
参数表 |
参数 |
类型及说明 |
vKey |
Long,欲测试的虚拟键的键码 |
注解 |
如指定了VK_LBUTTON 或 VK_RBUTTON,按钮的状态就会根据实际的按钮报告——无论是否曾用SwapMouseButton函数对鼠标的位置进行了交换。win32提供了额外的一些虚拟键码,比如VK_LSHIFT 和 VK_RSHIFT,以便在两个完全一样的键中区分出左右(也包括Ctrl 和 Alt) |
[此贴子已经被作者于2004-11-4 14:06:45编辑过] |