デフォルトのキーを割り当てる 【注意書き】●VB.NET を使っているものとします。●動作環境は、Windows XX を使用しているとします。.NET でも、デフォルトのキーを割り当てることが可能です。この機能を使えば、簡単に、ボタンクリックイベントと同様の機能をキーボードへも持たせる場合に活用できます。フォームに次の様なコードを記述します-----------VB.NETコーディングここから-------------------１．フォームに、テキストボックスコントロール、 ボタンコントロール を配置します。 下記は、デフォルトのオブジェクトの名前と配置を示しています。 ┏━━━━━━━━━━━━┓ ┃TextBox1 ┃ ┗━━━━━━━━━━━━┛ ┏━━━━━┓┏━━━━━┓ ┃Button1 ┃┃Button2 ┃ ┗━━━━━┛┗━━━━━┛２．ボタンコントロールの Button1 text プロパティに「ＯＫ」と記述します。 Button2 text プロパティに「キャンセル」と記述します。 ※説明用のためです。必須ではありません。 ┏━━━━━━━━━━━━┓ ┃TextBox1 ┃ ┗━━━━━━━━━━━━┛ ┏━━━━━┓┏━━━━━┓ ┃ＯＫ ┃┃キャンセル┃ ┗━━━━━┛┗━━━━━┛３．フォームをダブルクリックして、 フォームロードイベントのコード編集を開始して、 次のコードを記述します。 Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click 'デフォルトでＥＮＴＥＲキー MsgBox("ENTER") End Sub Private Sub Button2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click 'デフォルトでＥＳＣキー MsgBox("ESC") End Sub Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load 'デフォルトキーの割り当て 'ENTERキー Me.AcceptButton = Button1 'ESCキー Me.CancelButton = Button2 '初期フォーカス位置 TextBox1.TabIndex = 0 End Sub４．ビルドして実行します。５．ＥＮＴＥＲキーを押します。６．メッセージボックスに 「ＥＮＴＥＲ 」と表示されます。７．ＥＳＣキーを押します。８．メッセージボックスに 「ＥＳＣ 」と表示されます。-----------VB.NETコーディングここまで-------------------フォームのプロパティのAcceptButton と CancelButton を使用しています。初期フォーカスの位置を TextBox1 としています。業務系アプリに多い動作で、ＥＮＴＥＲキーは、項目値決定と同時にフォーカスの移動などでの活用をメインと想定すると、ＥＮＴＥＲキーよりも、取り消しのＥＳＣのほうが利用されるケースがあるかもしれません。KeyDown KeyPress 主体でイベント処理を行っている場合は、フォームのプロパティのAcceptButton と CancelButton は、使わないケースが多いかもしれませんね。
Copyright(c)2001-2004 Ai Net Makoto 記事・情報の無断転載を禁止します。
