VB Formアプリ FormをWscapeキーで終了したい

Question

VB Formアプリでの質問です。FormBorderStyleプロパティをNoneにし、Escapeキーを押してアプリ終了させたいのですが、うまく作動しません。アドバイスをお願いいたします。

    Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
        '<判定>押されたキーがエスケープキー？
        If (e.KeyCode = Keys.Escape) Then
            '「Yes」の場合
            'アプリケーションを終了
            Me.Close()
        End If
    End Sub

Comments

[ttyp03]

タイトルがWscapeになっているので修正お願いします。
「FormBorderStyleプロパティをNone」にする処理が入っていませんが、これがわからないこと？それとも質問とは関係ない処理？
うまく作動しないとは？Me.Closeには到達しているのですか？
情報不足すぎです。
追加お願いします。

[Daregada]

Form1フォームにコントロール(ボタンなど)を配置していませんか?

[kuma1205]

Form１にTextBoxが配置しました。FormBorderSytleプロパティをNoneにしていたのですが、EscapeキーからMe.Closeが実行されませんでしたので、Sizableにしておりました。ご指摘ありがとうございました。リファレンス詳細サイト等はないでしょうか。

Answer 1

※フォームがShowDialogで開いていないことを前提とします。
（この場合はCancelButtonプロパティの設定でエスケープキーでフォームを閉じることが可能。）

KeyDownイベントは、そのままではエスケープキーを捕捉できません。
PreviewKeyDownイベントではエスケープキーを捕捉できるのですが、フォーム上にコントロールがあると、フォームまでPreviewKeyDownイベントが発生しません。
この場合、フォームのKeyPreviewプロパティをTrueにすると、フォームのKeyDownイベントでEscapeキーを捕捉できるようになります。

ただし、キーによっては上記方法で捕捉できないものがあります。（矢印等）
そのようなキーを捕捉したい場合は、以下の記事を参考にして、フォームで対象キーを捕捉できるようになります。

（参考）Buttonコントロールにフォーカスがあるとフォームで矢印キーのキーイベントが発生しない

参考までに、これにエスケープキーを適用すると、以下のようになります。

    <System.Security.Permissions.UIPermission( _
        System.Security.Permissions.SecurityAction.Demand, _
        Window:=System.Security.Permissions.UIPermissionWindow.AllWindows)> _
    Protected Overrides Function ProcessDialogKey( _
        ByVal keyData As Keys) As Boolean
        If (keyData And Keys.KeyCode) = Keys.Escape Then
            Me.Close()
            'Escapeキーの本来の処理をさせたくないときは、trueを返す
            Return True
        End If

        Return MyBase.ProcessDialogKey(keyData)
    End Function

Comments

[kuma1205]

@kenshirouさん、ありがとうございます。KeyPreviewプロパティをTrueにしましたら、Escapeで開くことができました。たすかりました。