Form上でのキー入力

Question

パネルコントロール、ボタンコントロール等が配置されているForm上で
どのコントロールがアクティブになっている状態でもキー入力＋リターンを取得したいのですが。

現在下記のような実装
FormのKeyPreviewプロパティをTrueに設定し、キープレスイベントで入力文字を取得し、リターン押下時に
メッセージボックスを表示
このとき、ボタンコントロールがアクティブになっているとリターンキーのキープレスイベントが
発生しないのでProcessDialogKeyでリターン押下時にメッセージボックスを表示を追加しました。
上記によりボタンがアクティブになっていてもリターン押下でメッセージボックスが表示されるように
なったのですがチェックボックスなどがアクティブになっているときに、キー入力を行い、
リターンキーを押下するとProcessDialogKey、キープレスイベントの２つのイベントが発生してしまい
2回メッセージボックスが表示されてしまいます。
一か所で吸収するようなことはできるのでしょうか？

下記のような処理になっています。

Public Class Form1
    Dim test As String
    Private Sub Form1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles MyBase.KeyPress
        '受け取ったキーを表示する
        If e.KeyChar.ToString = Microsoft.VisualBasic.ChrW(Keys.Enter) Then
            MessageBox.Show(test + "KeyPress")
            test = ""
        Else
            test += e.KeyChar.ToString()
        End If
    End Sub

    Protected Overrides Function ProcessDialogKey(
            ByVal keyData As Keys) As Boolean
        If keyData = Keys.Return Then
            MessageBox.Show(test + "DialogKey")
            test = ""
        End If
        Return MyBase.ProcessDialogKey(keyData)
    End Function
End Class

Comments

[Mr_Roboto]

コードは、コードブロックで囲んで頂けると読みやすくなります。編集画面の＜／＞ ボタンです。再編集してみてください ^^

Answer 1

ProcessDialogKeyイベントでのリターンキー入力時はreturn trueを
返すようにして本来の処理を行わないようにすることにより対応できました。

Public Class Form1
    Dim test As String
    Private Sub Form1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles MyBase.KeyPress
        '受け取ったキーを表示する
        If e.KeyChar.ToString = Microsoft.VisualBasic.ChrW(Keys.Enter) Then
            MessageBox.Show(test + "KeyPress")
            test = ""
        Else
            test += e.KeyChar.ToString()
        End If
    End Sub

    Protected Overrides Function ProcessDialogKey(
            ByVal keyData As Keys) As Boolean
        If keyData = Keys.Return Then
            MessageBox.Show(test + "DialogKey")
            test = ""
       Return True
        End If
        Return MyBase.ProcessDialogKey(keyData)
    End Function
End Class

Answer 2

イベントが起きた時にどのコントロールにフォーカスがあたっているかを見て処理を変えてあげればどうでしょう