Validasi TextBox Hanya Bisa Diisi Angka VB .Net

Pada Pembelajaran Visual Basic .Net kali ini adalah Validasi TextBox Hanya Bisa Diisi Angka

Kenapa Harus Divalidasi? Apa Fungsinya Validasi?
Bagi anda seorang Programmer pasti anda membutuhkan sebuah Validasi, Validasi pada sebuah Program berfungsi untuk mengurangi Debug atau ERROR sehingga aplikasi yang anda buat akan berjalan sesuai dengan keinginan anda. Memang didalam sebuah Aplikasi tidak ada yang sempurna, namun dengan adanya Validasi setidaknya akan mengurangi Error pada sebuah Aplikasi.

Pada postingan kali ini adalah Validasi TextBox Hanya bisa diisi dengan angka, penjelasannya adalah Jika anda telah membuah sebuah database dan Tabel yang mana Field tabel terebut menggunakan Numeric atau Angka jika pada sebuah form kemudian anda input text (bukan angka) maka ketika anda simpan maka akan terjadi Bug. oleh karena itu Validasi disini diperlukan.

Berikut ini Kodingnya :

If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True

Jika diterapkan pada contoh form diatas maka Field : Harga dan Stok harus divalidasi
berikut ini koding untuk form diatas :

Public Class Form1
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) _
       Handles MyBase.Load
        Me.Text = "www.belajarvb.com"
    End Sub
    Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
        If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
    End Sub
    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 Sub

End Class

Dengan langkah diatas maka anda tidak bisa mengisi Harga dan Stok dengan Huruf, melainkan anda hanya bisa mengisi dengan Angka :)

Salam
BelajarVB.com