Validasi Textbox Hanya Bisa Diisi Angka di VB.Net

Validasi textbox diprogram vb.net bisa jadi sangat - sangat penting !! Bisa kalian bayangkan jika kita membuat sebuah program seperti pada gambar disamping dan tidak divalidasi maka user dapat mengisi textbox No Telepon dengan huruf atau sebalik nya, User dapat mengisi textbox Nama Lengkap dengan angka.

Tentu hal ini sangat tidak diinginkan oleh seorang programmer untuk mencegah error . Nah untuk itu kali ini BIF Programming akan memberi tutorial tentang bagaimana cara menvalidasi textbox agar hanya bisa diisi ANGKA. Dan untuk tutorial textbox Nama Lengkap hanya bisa diisi huruf akan dibahas pada link ini -> ( Validasi TextBox Hanya Bisa Diisi Huruf )

Oke langsung aja ini dia step by step untuk validasi textbox hanya bisa diisi angka

1. Klik dua kali pada textbox "No Telepon" sehingga muncul jendela koding kurang lebih seperti dibawah ini

2. Pada option "Events" pilih opsi "KeyPress"

3. Sehingga muncul dua Private Sub yaitu Private Sub TextBox1_KeyPress dan Public Sub TextBox1_TextChange.
Ketik Coding berikut pada Public Sub Events KeyPress :

 
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
Dim valangka As Short = Asc(e.KeyChar)
if e.KeyChar like "[0-9]" orElse valangka = Keys.Back Then
valangka = 0
End IF
e.Handled = cBool(valangka)
End Sub 

Sehingga jika jendela koding dilihat keseluruhan maka akan tampak seperti ini

Public Class Form1

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
Dim valangka As Short = Asc(e.KeyChar)
if e.KeyChar like "[0-9]" orElse valangka = Keys.Back Then
valangka = 0
End IF
e.Handled = cBool(valangka)
End Sub

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

End Sub

End Class

Untuk Private Sub TextBox1_TextChanged bisa kalian hapus. Nah sekarang silahkan run program dan ketik huruf pada textbox yang sudah divalidasi tadi ;) Mau sampe botak juga gak akan bisa bukan :D

Oke yang terakhir penjelasan dari koding diatas adalah
Dim valangka As Short = ASc(e.KeyChar) yang artinya kita membuat variable bernama valangka dengan tipe data As Short (angka) yang isi nya Asc(e.KeyChar) bilangan pada masing" char pada keyboard.

if e.KeyChar like "[0-9]" orElse valangka = Keys.Back Then valangka = 0 End IF yang berarti kita buat sebuah logika jika yang diketik 0-9 kecuali tombol backspace maka variable valangka kita isi 0. 0 disini maksud nya bilangan biner yang berarti TRUE

e.Handled = cBool(valangka) yang berarti kita ubah variable valangka menjadi boolean (True/False)

Semoga gak pusing yaaa :D Oke selamat mencoba, semoga berhasil & keep coding ;)