Key code fo ALT key

[hafizfarooq]

Dears,

For CTRL + N we use If KeyCode = vbKeyN And Shift = 2 Then, what will we use if we want to use N Key with ALT button

Regards

[smUX]

If it's for sendkeys, I've a link in my sig which has all the key codes

If not, http://www.vbforums.com/showthread.php?t=587222 says vbAltMask is what you're looking for

[akhileshbc]

shift=4

[akhileshbc]

Usage: If KeyCode = vbKeyN And Shift = 4 Then ~~> Alt + N

[anhn]

See help for KeyDown and KeyUp Events

Shift = 1 : SHIFT was pressed. 
Shift = 2 : CTRL was pressed. 
Shift = 4 : ALT was pressed. 

Shift = 3 : CTRL+SHIFT was pressed.
...

[hafizfarooq]

its not working in my code. I wrote

If KeyCode = vbKeyN And Shift = 4 Then          'NEW
        lbl_Click (0)
    ElseIf KeyCode = vbKeyS And Shift = 4 Then      'SAVE
        lbl_Click (1)
    ElseIf KeyCode = vbKeyC And Shift = 2 Then      'Cancel
        lbl_Click (2)
    ElseIf KeyCode = vbKeyD And Shift = 4 Then      'Delete
        lbl_Click (3)
    ElseIf KeyCode = vbKeyF And Shift = 2 Then      'Find
        lbl_Click (4)
    ElseIf KeyCode = vbKeyX And Shift = 2 Then      'Exit
        lbl_Click (5)
    End If

if i use CTRL + X it works but if i use ALT + N its not work

[akhileshbc]

Where are using this code...????

[hafizfarooq]

i have used Lables as command Buttons and want to use with KEY CODE. i m using this code in FORM_KeyDown event

[akhileshbc]

Have you set the KeyPreview property of form to True ...???

[hafizfarooq]

KeyPreview property of form is True, thats why CTRL + Keys is working

[Siddharth Rout]

what will we use if we want to use N Key with ALT butt

Is this what you want?

You can check it for keydown event of textbox

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    ShiftTest = Shift And 7
    If KeyCode = vbKeyN And ShiftTest = 4 Then
        MsgBox "You pressed Alt+N"
    End If
End Sub

[hafizfarooq]

I m not using this on Textbox, i need to implement it on Form

[Siddharth Rout]

I m not using this on Textbox, i need to implement it on Form

Set the form's KeyPreview property to True...

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    ShiftTest = Shift And 7
    If KeyCode = vbKeyN And ShiftTest = 4 Then
        MsgBox "You pressed Alt+N"
    End If
End Sub