Question

Private Declare Function 这句什么意思？什么用？

Private Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer这句什么意思？
Private Declare Function 这句函数写法有人知道吗？

Answer 1

私有声明函数
这是你的程序里需要调用user32数据里面的函数

Answer 2

定义GetAsyncKeyState 这个api函数

Answer 3

Private 语句
在模块级别中使用，用于声明私有变量及分配存储空间
Declare 语句
用于在模块级别中声明对动态链接库 (DLL) 中外部过程的引用。
Function 语句
声明 Function 过程的名称，参数以及构成其主体的代码
GetAsyncKeyState 是API函数 作用：判断函数调用时指定虚拟键的状态
自对GetAsyncKeyState函数的上一次调用以来，如键已被按过，则位0设为1；否则设为0。如键目前处于按下状态，则位15设为1；如抬起，则为0。微软的win32手册指出：倘若输入焦点从属于与调用函数的输入线程不同的另一个输入线程，则返回值为0（例如，一旦另一个程序拥有焦点，则它应返回零）。证据显示，函数实际是在整个系统的范围内工作的
该API一般用来设置程序快捷键~添加一个timer控件 设置间隔时间100毫秒 实例代码如下：
Option Explicit

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer

Private Sub Timer1_Timer()

If MyHotKey(vbKeyA) Then

MsgBox "收到热键vbKeyA的消息！"
Me.WindowState = vbNormal

ElseIf MyHotKey(vbKeyF2) Then

MsgBox "收到热键vbKeyF2的消息！"
Me.WindowState = vbNormal

End If

End Sub

Private Function MyHotKey(vKeyCode) As Boolean

MyHotKey = GetAsyncKeyState(vKeyCode) < 0

End Function

追问

谢谢
还请问一下加 Alias "GetAsyncKeyState" 语句有什么用？

追答

Alias 可选的。表示将被调用的过程在动态链接库 (DLL) 中还有另外的名称。当外部过程名与某个关键字重名时，就可以使用这个参数。当动态链接库的过程与同一范围内的公用变量、常数或任何其它过程的名称相同时，也可以使用 Alias。如果该动态链接库过程中的某个字符不符合动态链接库的命名约定时，也可以使用 Alias