Cara Menvalidasi Agar Textbox Hanya Bisa Diketik Huruf

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 HURUF

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

1. Klik dua kali pada textbox "Nama Lengkap" 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 valhuruf As Short = Asc(e.KeyChar)
if e.KeyChar like "[0-9]" orElse valhuruf = Keys.Back orElse valhuruf = Keys.Space Then
valhuruf = 0
End IF
e.Handled = cBool(valhuruf)
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 valhuruf As Short = Asc(e.KeyChar)
if e.KeyChar like "[a-z,A-Z]" orElse valhuruf = Keys.Back orElse valhuruf = Keys.Space Then
valhuruf = 0
End IF
e.Handled = cBool(valhuruf)
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 valhuruf As Short = ASc(e.KeyChar) yang artinya kita membuat variable bernama valhuruf dengan tipe data As Short (angka) yang isi nya Asc(e.KeyChar) bilangan pada masing" char pada keyboard.

if e.KeyChar like "[a-z,A-Z]" orElse valhuruf = Keys.Back orElse valhurug = Keys.Space Then valhuruf = 0 End IF yang berarti kita buat sebuah logika jika yang diketik a-z,A-Z kecuali tombol backspace dan spasi maka variable valangka kita isi 0. 0 disini maksud nya bilangan biner yang berarti TRUE

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

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