判断Ctrl键否按下的函数

时　间:2010-10-15 19:07:04
作　者:AskHeart   ID：17  城市：秦皇岛
摘　要:判断Ctrl键是否按下的函数

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

正　文:

判断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

点击下载此附件