كيف امنع كتابة الحروف في DataGridView

كود :

Private Sub DataGridView1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles DataGridView1.KeyPress

        Select Case e.KeyChar

            Case "0", "1", ControlChars.Back

                e.Handled = False

            Case Else

                e.Handled = True

        End Select

    End Sub

كود :

Private Sub DataGridView1_EditingControlShowing(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing        Dim TextEdit As TextBox = e.Control

        RemoveHandler TextEdit.KeyPress, AddressOf TextBox_KeyPress_Number

        AddHandler TextEdit.KeyPress, AddressOf TextBox_KeyPress_Number

    End Sub





    Public Sub TextBox_KeyPress_Number(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)

        Dim KeyAscii As Short = Asc(e.KeyChar)

        Select Case KeyAscii

            Case 48, 49, 8

                e.Handled = False

            Case Else

                e.Handled = True

        End Select

        ' 48 is KeyAscii for Number 0

        ' 49 is KeyAscii for Number 1

        ' 8 is KeyAscii for Back Key

    End Sub