DataGridView Keypress事件只能输入数字

#Region "------- 处理 Grid 中的 Keypress ，以限定某些字段仅可输入数字等 -------- " ' 各Grid 中的 Seq No. 为 Int 类型； 其中的 Days 为 Int 类型； 其它的 Cost / Expense 为 Decimal 类型 Private EditingControl As DataGridViewTextBoxEditingControl ' ' ' <summary> ' ' ' 限定仅可以输入数字值及相关的操作符，如 ". "/回车/退格/删除等键 ' ' ' </summary> ' ' ' <remarks> 不可输入小数点 </remarks> Private Sub editingcontrol_INT_Keypress(ByVal sender As System.Object, ByVal e As KeyPressEventArgs) Dim keyAscii As Integer = Asc(e.KeyChar) If (keyAscii < Keys.D0) Or keyAscii > Keys.D9 Then _ If keyAscii <> Keys.Enter And keyAscii <> Keys.Back Then e.Handled = True End Sub ' ' ' <summary> ' ' ' 限定仅可以输入数字值及相关的操作符，如 ". "/回车/退格/删除等键 ' ' ' </summary> ' ' ' <remarks> 可输入小数点 </remarks> Private Sub editingcontrol_Decimal_Keypress(ByVal sender As System.Object, ByVal e As KeyPressEventArgs) Dim keyAscii As Integer = Asc(e.KeyChar) If (keyAscii < Keys.D0 And keyAscii <> Keys.Delete) Or keyAscii > Keys.D9 Then _ If keyAscii <> Keys.Enter And keyAscii <> Keys.Back Then e.Handled = True End Sub Private Sub grdALL_EditingControlShowing(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles grdRoute.EditingControlShowing, grdHotel.EditingControlShowing, grdVisaInfo.EditingControlShowing, grdRouteInfo.EditingControlShowing EditingControl = CType(e.Control, DataGridViewTextBoxEditingControl) Select Case CType(sender, DataGridView).CurrentCell.OwningColumn.Name.Trim.ToLower Case "seq_no ", "booking_days " ' int AddHandler EditingControl.KeyPress, AddressOf editingcontrol_INT_Keypress Case "estimated_cost " ' Decimal AddHandler EditingControl.KeyPress, AddressOf editingcontrol_Decimal_Keypress End Select End Sub Private Sub grdALL_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles grdRoute.CellEndEdit, grdHotel.CellEndEdit, grdVisaInfo.CellEndEdit, grdRouteInfo.CellEndEdit Select Case CType(sender, DataGridView).CurrentCell.OwningColumn.Name.Trim.ToLower Case "seq_no ", "booking_days " ' int RemoveHandler EditingControl.KeyPress, AddressOf editingcontrol_INT_Keypress Case "estimated_cost " ' Decimal RemoveHandler EditingControl.KeyPress, AddressOf editingcontrol_Decimal_Keypress End Select 'RemoveHandler EditingControl.KeyPress, AddressOf editingcontrol_INT_Keypress 'RemoveHandler EditingControl.KeyPress, AddressOf editingcontrol_Decimal_Keypress End Sub #End Region