download gratis video tutorial vb 6 dan vb.net plus contoh aplikasi

cara validasi entri data angka dan abjad

 

 

 

Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress
If Not (e.KeyChar >= "0" And e.KeyChar <= "9" Or e.KeyChar = vbBack) Then
e.Handled = True
End If
End Sub

 

Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
If (e.KeyChar >= "0" And e.KeyChar <= "9" And e.KeyChar <> vbBack) Then
e.Handled = True
End If
End Sub