制datagridview單元格只能輸入數字 VB2005(收藏)

Public EditCell As DataGridVIEwTextBoxEditingControl

    Private Sub DataGridView1_EditingControlShowing(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles DataGridVIEw1.EditingControlShowing
        EditCell = CType(e.Control, DataGridVIEwTextBoxEditingControl)
        EditCell.SelectAll()
        AddHandler EditCell.KeyPress, AddressOf Cells_KeyPress
    End Sub

    Private Sub Cells_KeyPress(ByVal sender As System.Object, ByVal e As KeyPressEventArgs)
        If e.KeyChar <> Chr(8) And e.KeyChar <> Chr(13) And (e.KeyChar < Chr(48) Or e.KeyChar > Chr(57)) Then
                Beep()
                Beep()
                e.KeyChar = Chr(0)
        End If
    End Sub