Membatasi Text Box Terisi Angka Saja

Terkadang error bisa saja terjadi kita menjalakan program kita.. Kadang karena kita menginput data di text box tidak sesuai dengan kriteria pada database. Kali ini saya akan menjelaskan cara membatasi text box di visual basic agar hanya bisa diketikkan angka saja. Scriptnya berhubungan dengan ASCII (American Standard Code for Information Interchange). Pertama-tama buat text box di project vb

If Not ((KeyAscii >= 48) And (KeyAscii <= 57) Or KeyAscii = 8) Then
    KeyAscii = 0

End If

artinya jika bukan keyascii lebih besar sama dengan 48 dan keyascii kurang sama dengan 57 (keyascii bukan antara 48 sampai 57)  atau keyascii = 8 maka keyascii = 0

hasilnya pada textbox hanya bisa diinput angka 0 sampai 9 dan backspace, sehingga dapat mencegah terjadinya error akibat user (human error).

keyascii 48 sampai 57 adalah angka (0-9), sedangkan keyascii 8 adalah backspace.

semoga bermanfaat :)