按键关闭表格VB.net

Question

So I've been working on this project to autorun on my flash drive, whenever it gets plugged it. It just displays my contact info and a little message, so I can get it returned.

Because I want people to actually read the message, the close button is disabled. You have to check a little box, and then hit the "OK" button.

Of course, I don't want to do this whenever I plug in my own flash drive. I'm trying to make a keyboard shortcut to close it automatically. I saw this post here but it didn't work for me. Here's the code from that post:

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
    If e.Alt AndAlso e.KeyCode = Keys.X Then
Application.Exit()
End If
End Sub

Any help is very appreciated. Thanks!

Also, if you think my code is sloppy and want to clean it up, here it is.

Public Class Form1

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    e.Cancel = True
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles ButtonOK.Click
    End
End Sub

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
    If CheckBox1.Checked = True Then
        ButtonOK.Enabled = True
    Else
        ButtonOK.Enabled = False
    End If
End Sub

Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
End Sub

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
    If e.Alt AndAlso e.KeyCode = Keys.X Then
        End
    End If
End Sub
End Class

Answer 1

Firstly, NEVER EVER use End . That is just plain bad under any circumstances.

What you should be doing is testing the Checked value of your CheckBox in the FormClosing event handler and cancelling if and only if it's not checked. Logically, you should then check the CheckBox and call Close on the form when you detect that desired key combination.

Actually, I'd probably not call Close either, but rather call PerformClick on the Button . That way, the key combination is guaranteed to do exactly the same thing as clicking the Button .

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles ButtonOK.Click
    Close()
End Sub

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
    ButtonOK.Enabled = CheckBox1.Checked
End Sub

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
    If e.Alt AndAlso e.KeyCode = Keys.X Then
        CheckBox1.Checked = True
        ButtonOK.PerformClick()
    End If
End Sub

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    e.Cancel = Not CheckBox1.Checked
End Sub