关于热键问题。。。。。。。。。。请帮忙。

Question

我现在定义F6键为热键，在程序运行的时候如果按一下F6就打开一个窗体，要是我一直按住F6程序就会
弹出多窗体，这是我不想要的结果。
请问如何控制一直按住该键的时候只执行一次？

Answer 1

Private Sub HotKey_Click()
    Dim frm As Form
    For Each frm In Forms
        If frm.Name = "Form2" Then
            Exit Sub
        End If
    Next
    Form2.Show
End Sub

Answer 2

定义一个布尔型变量,打开的时候设为TRUE,关闭的时候设为FALSE
在按F6的时候判断如果变量是真就不执行了.

Answer 3

//在程序运行的时候如果按一下F6就打开一个窗体，要是我一直按住F6程序就会
弹出多窗体，这是我不想要的结果。我假设你要打开的窗体为form2：'两个窗体，没有模块：
'窗体1代码：
Option ExplicitPrivate Const MOD_ALT = &H1
Private Const MOD_CONTROL = &H2
Private Const MOD_SHIFT = &H4
Private Const PM_REMOVE = &H1
Private Const WM_HOTKEY = &H312
Private Type POINTAPI
    x As Long
    y As Long
End Type
Private Type Msg
    hWnd As Long
    Message As Long
    wParam As Long
    lParam As Long
    time As Long
    pt As POINTAPI
End TypePrivate Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long
Private Declare Function UnregisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long) As Long
Private Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" (lpMsg As Msg, ByVal hWnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long
Private Declare Function WaitMessage Lib "user32" () As Long
Private bCancel As Boolean
Private Sub ProcessMessages()
    Dim Message As Msg
    Do While Not bCancel
        WaitMessage
        If PeekMessage(Message, Me.hWnd, WM_HOTKEY, WM_HOTKEY, PM_REMOVE) Then
            Dim a
            For Each a In Forms
                If a.Name = "Form2" Then
                    Exit Sub
                End If
            Next
            Form2.Show
        End If
        DoEvents
    Loop
End SubPrivate Sub Form_Load()
    Dim ret As Long
    bCancel = False
    ret = RegisterHotKey(Me.hWnd, &HBFFF&, 0, vbKeyF6)
    Show
    ProcessMessages
End Sub
Private Sub Form_Unload(Cancel As Integer)
    bCancel = True
    'unregister hotkey
    Call UnregisterHotKey(Me.hWnd, &HBFFF&)
End Sub