Capture ALT+X

[angelica]

Hey I need to have an Exit button including keyboard shortcut Alt+X to go to Form 2. But this doesnt work. Any help?

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If (Chr(13) + Chr(88)) Then
            Me.Hide()
            Dim fr2 As New Form2
            fr2.Show()

        End If
    End Sub

[.paul.]

try this:

Public Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Integer) As Integer
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    If GetAsyncKeyState(17) And e.KeyCode = Keys.X Or GetAsyncKeyState(18) And e.KeyCode = Keys.X Then
       MsgBox("ALT+X pressed")
    End If
End Sub

[.paul.]

forgot to mention, you need to set your form .keypreview property to true

[.paul.]

actually i just found a better way without the api function:

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    If e.Modifiers = Keys.Alt And e.KeyCode = Keys.X Then
       MsgBox("ALT+X pressed")
    End If
End Sub

[angelica]

Hi .paul,

Works fine. Can you please explain to me this bit and what is actually triggers?

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

thanks

Is there a simpler way of doing it because this was an exercise for a very very beginner's exercise to young students!

[.paul.]

sorry, i made a mistake earlier. i wasn't concentrating.
if you have a button with the text "Exit", change it to "E&xit", then alt+x is your buttons shortcut.