◆DataGridView でKeyDownイベントを捕捉したい。

'-----EditingControlShowingイベントハンドラ・・・

'     DataGridViewのセルに数字や文字を入力始めると自動的にTextBoxを使用する編集モードに

'     切り替わるために、DataGridViewのキーイベントを捕捉するのではなく、このTextBoxの

'     キーイベントを捕捉する必要があります。そしてこのTextBoxに切替表示された時に、

'     EditingControlShowingイベントが発生します。このイベントハンドラで編集に使用して

'     いるTextBoxを取得し、PreviewKeyDownイベントハンドラを追加します。（↓詳細）

'         http://dobon.net/vb/dotnet/datagridview/textboxevent.html

Private Sub DataGridView1_EditingControlShowing(ByVal sender As Object, _

                        ByVal e As DataGridViewEditingControlShowingEventArgs) _

                        Handles DataGridView.EditingControlShowing



        '-----もしDataGridViewTextBoxEditingControlであれば・・・

        If TypeOf e.Control Is DataGridViewTextBoxEditingControl Then



            Dim dgv As DataGridView = CType(sender, DataGridView)

            '----1) 編集のために表示されているテキストボックスコントロールを取得します。

            Dim tb As DataGridViewTextBoxEditingControl = _

                     CType(e.Control, DataGridViewTextBoxEditingControl)



            '----2) 同じイベントハンドラが同じテキストボックスのイベントに何回も追加され

            '       ないようにEditingControlShowingイベントハンドラでイベントハンドラを

            '       削除します。（↓詳細）

            '        http://dobon.net/vb/bbs/log3-5/2589.html

            RemoveHandler tb.PreviewKeyDown, AddressOf dataGridViewTextBox_PreviewKeyDown



            '---3) もし、キーイベントを発生させたいDataGridViewの列であれば ・・・

            '      指定した例（ "Column1"） は、DataGridViewの「列の編集」ダイアログで

            ’     表示されているデザインのに設定されている名前（Name）を指定します。

            ’     例→"DataGridViewTextBoxColumn8"

            If dgv.CurrentCell.OwningColumn.Name = "Column1" Then



                '---PreviewKeyDownイベントハンドラを追加します。

                '   KeyDownイベントでは EnterキーやTabキー、矢印キーを捕まえらないので

                '   PreviewKeyDownイベントを使用（↓詳細）

                '   http://www5b.biglobe.ne.jp/~yone-ken/VBNET/special/sp02_event.html

                AddHandler tb.PreviewKeyDown, AddressOf dataGridViewTextBox_PreviewKeyDown

            End If

        End If

End Sub





'-----DataGridViewに表示されているテキストボックスのPreviewKeyDownイベントハンドラ

'     文末の「Handles DataGridView1.PreviewKeyDown」（イベント発生源）を記述すること

'     によってDataGridViewが編集中でなくとも If e.KeyCode = Keys.Enter Then〜End If 

'     が動作してくれます。

Private Sub dataGridViewTextBox_PreviewKeyDown(ByVal sender As Object, _

              ByVal e As System.Windows.Forms.PreviewKeyDownEventArgs) _

                                  Handles DataGridView1.PreviewKeyDown



     '-----もし、Enterキーが押されたのであれば

     If e.KeyCode = Keys.Enter Then

           計算() '-----DataGridViewの縦横計算や集計計算のモジュールへ

     End If

End Sub

 '---EditingControlShowingイベントハンドラ

Private Sub DataGridView1_EditingControlShowing(ByVal sender As Object, _

                 ByVal e As DataGridViewEditingControlShowingEventArgs) _

                           Handles DataGridView1.EditingControlShowing

     '---------このがDataGridViewTextBoxEditingControlであれば

     If TypeOf e.Control Is DataGridViewTextBoxEditingControl Then 

          Dim dgv As DataGridView = CType(sender, DataGridView)

          '-----編集のために表示されているコントロールを取得

          Dim tb As DataGridViewTextBoxEditingControl = _

                  CType(e.Control, DataGridViewTextBoxEditingControl)

          '-----イベントハンドラを削除

          RemoveHandler tb.KeyPress, AddressOf dataGridViewTextBox_KeyPress

          '-----キーイベントを発生させたい列であれば

          If dgv.CurrentCell.OwningColumn.Name = "Column1" Then 

             '-----KeyPressイベントハンドラを追加

             AddHandler tb.KeyPress, AddressOf dataGridViewTextBox_KeyPress 

          End If

     End If

End Sub





'-----DataGridViewに表示されているテキストボックスのKeyPressイベントハンドラ

Private Sub dataGridViewTextBox_KeyPress(ByVal sender As Object, _

        ByVal e As KeyPressEventArgs) Handles DataGridView1.KeyPress

     If (e.KeyChar < "0"c Or e.KeyChar > "9"c) AndAlso e.KeyChar <> "." _

                                     c AndAlso e.KeyChar <> vbBack Then

            e.Handled = True '--数字しか入力できないようにする

     End If

End Sub