Скачать или смотреть VB.NET:เช็คตัวเลข DataGridView Numeric Only Cell

Private eventHookedUp As Boolean
Private Sub dgvPOFWH3ReceiveSub_EditingControlShowing(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing
Try
Dim txtEdit As TextBox = CType(e.Control, TextBox)
'remove any existing handler
RemoveHandler txtEdit.KeyPress, AddressOf txtEdit_Keypress
AddHandler txtEdit.KeyPress, AddressOf txtEdit_Keypress

Catch ex As Exception

End Try

End Sub


Private Sub txtEdit_Keypress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
If DataGridView1.CurrentCell.ColumnIndex = 1 Then 'คอลัมที่ต้องการเช็ค
If IsNumeric(e.KeyChar.ToString()) _
Or e.KeyChar = ChrW(Keys.Back) _
Or e.KeyChar = "." _
Or e.KeyChar = "-" Then
'MessageBox.Show("KeyPress number")
e.Handled = False 'if numeric display
Else
'MessageBox.Show("ต้องกรอกค่าเป็นตัวเลข")
e.Handled = True 'if non numeric don't display
End If
End If