What is the keycode of the F12 Key?? Or how do I catch it's keystroke?

[Jamie_Dowd]

need to know if the user pressed F12...

[billwagnon]

I just made a little program in Excel that tells what key you pressed. Try this.

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    TextBox2.Text = TextBox2.Text & vbCrLf & "KeyCode = " & CStr(KeyCode)
    TextBox1.SetFocus
End Sub


Private Sub UserForm_Initialize()
    Move 0, 0, 570, 380
    
    TextBox1.Move 30, 40, 220, 160
    TextBox1.MultiLine = True
    TextBox1.WordWrap = True
    TextBox1.Text = "Type text here."

    TextBox1.EnterKeyBehavior = True
    
    
    TextBox2.Move 298, 40, 220, 160
    TextBox2.MultiLine = True
    TextBox2.WordWrap = True
    TextBox2.Text = "ASCII code"
    TextBox2.Locked = True
    TextBox2.ScrollBars = fmScrollBarsVertical
    
 End Sub

Set up a user form with 2 textboxes (textbox1 and textbox2).

Does this work for all situations? I don't know.

[Edited by billwagnon on 05-25-2000 at 03:03 PM]

[YoungBuck]

This should do it:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const VK_F12 = &H7B


Private b_running As Boolean

Private Sub Form_Load()
    b_running = True
    Me.Show
    Do Until b_running = False
        DoEvents
        If GetAsyncKeyState(VK_F12) Then
            Debug.Print "F12 Pressed"
        End If
    Loop
End Sub

Private Sub Form_Unload(Cancel As Integer)
    b_running = False
End Sub