Membuat DataGridView VB.Net Hanya bisa Diinput Dengan Angka

Assalamu'alaikum Wr.Wb

Pada hari ini saya akan membahas gimana caranya agar DataGridView hanya dapat diinput dengan angka
Pertama agan sediakan dulu DataGridView nya yang ada pada ToolBox,
dan ubah dulu Name DataGridView menjadi DGV pada Propeties.

Setelah itu agan pilih View Code yang ada pada Solution Explorer



Pilih Class Name DGV dan Method Name EditingControlShowing

 
 Nahh ini dia nii SourceCode nya yang di tunggu tunggu :D

Private Sub DGV_EditingControlShowing(ByVal sender As Object, ByVal e _
As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles _
DGV.EditingControlShowing 

        If e.Control.GetType.ToString() = _
"System.Windows.Forms.DataGridViewTextBoxEditingControl" Then

            Dim c As DataGridViewTextBoxEditingControl = _
CType(e.Control, DataGridViewTextBoxEditingControl)
            RemoveHandler c.KeyPress, AddressOf GridViewTextBox_KeyPress
            AddHandler c.KeyPress, AddressOf GridViewTextBox_KeyPress
      
  End If

    End Sub

Silakan Copas Gan

Private Sub GridViewTextBox_KeyPress(ByVal sender As Object, ByVal ex As KeyPressEventArgs)

'Masukan Column Indexnya gan hitung

 If DGV.CurrentCell.ColumnIndex = 2 Then
                If ((Asc(ex.KeyChar) < 48 Or Asc(ex.KeyChar) > 57) And Asc(ex.KeyChar) <> 8) Then
                    ex.Handled = True
                End If
 End If

End Sub


Okee Sekian dulu dari ane gan ditunggu komennya
=========================================================================