判断Ctrl键是否按下的函数

用途：按下Ctrl键，点击某按钮，执行某项操作，不按下ctrl键，即不执行某项操作。

新建一模块，把下列源码复制粘接即可：

请根据需要，自已修改此函数想实现的操作。

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

Private Const VK_CONTROL As Long = &H11

Public Function bVkControlDown() As Boolean
    Dim keys As Integer
    keys = GetAsyncKeyState(VK_CONTROL) '检测是否正在按下Ctrl键
    If keys And &H8000 Then '如果按下Ctrl键,则返回值keys的二进制位15值1.
        MsgBox "Hello,你点击了CTRL键？"
    End If
End Function

点击下载此附件