DatagridView事件允许仅限数字，退格键和删除键VB.Net

Question

如何将下面的代码改为接受删除和退格键也是??

Private Sub DataGridView1_EditingControlShowing(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing 
    Select Case DataGridView1.CurrentCell.ColumnIndex 
     Case Is = 0, 1 
      AddHandler CType(e.Control, TextBox).KeyPress, AddressOf TextBox_keyPress 
    End Select 

End Sub 

Private Sub TextBox_keyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) 
    If Not (Char.IsDigit(CChar(CStr(e.KeyChar))) Or e.KeyChar = ".") Then 
     e.Handled = True 
    End If 
End Sub 

目前代码修改后 - 不工作

Private Sub DataGridView1_EditingControlShowing(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing 
    Select Case DataGridView1.CurrentCell.ColumnIndex 
     Case Is = 0, 1 
      AddHandler CType(e.Control, TextBox).KeyPress, AddressOf TextBox_keyDown 
    End Select 

End Sub 

Private Sub TextBox_keyDown(ByVal sender As Object, ByVal e As KeyPressEventArgs) 
    If Not (Char.IsDigit(CChar(CStr(e.KeyChar))) Or e.KeyChar = ".") Then 
     e.Handled = True 
    End If 
End Sub 

编辑 - 2码

Private Sub DataGridView1_EditingControlShowing(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing 

     Select Case DataGridView1.CurrentCell.ColumnIndex 
      Case Is = 0, 1 
       AddHandler CType(e.Control, TextBox).KeyPress, AddressOf TextBox_keyDown 
     End Select 

    End Sub 

    Private Sub TextBox_keyDown(ByVal sender As Object, ByVal e As KeyEventArgs) 
     If Not (Char.IsDigit(CChar(CStr(e.KeyValue))) Or e.KeyValue = ".") Then 
      e.Handled = True 
     End If 
    End Sub 

在TextBox_keyDown字这条线现在越来越错误...

AddressOf TextBox_keyDown 

错误文本

严重性代码说明项目文件的线路抑制状态 错误BC31143法“私人小组TextBox_keyDown（发送者为对象，E 作为KeyEventArgs）”不具有与委托 兼容的签名'Delegate Sub KeyPressEventHandler（sender As Object，e As KeyPressEventArgs）'。

Answer 1

更改DataGridView的编辑模式物业EditOnEnter并使用下面的代码。

Private Sub DataGridView1_EditingControlShowing(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing 
    Select Case DataGridView1.CurrentCell.ColumnIndex 
     Case Is = 0, 1 
      AddHandler CType(e.Control, TextBox).KeyPress, AddressOf TextBox_keyPress 
    End Select 

End Sub 

Private Sub TextBox_keyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) 
    If e.KeyChar <> ControlChars.Back Then 
     e.Handled = Not (Char.IsDigit(e.KeyChar)) 
    End If 
End Sub