Validasi Numeric pada TextBox (VB 6.0)

Untuk membuat validasi numeric (maksudnya hanya angka saja yang bisa kita ketikkan pada textbox), berikut langkah-langkahnya :

• Buat Project baru dan Form baru. Tambahkan sebuah TextBox dan Label.

 

• Klik 2 kali pada Text1. Ubah Event Text1_Change menjadi Text1_KeyPress(KeyAscii As Integer).

• Ketikkan syntax beikut pada Text1.

If KeyAscii < 47 Or KeyAscii > 57 Then KeyAscii = 0

• Jalankan Form1 dan lihat hasilnya.

NB : Cara di atas hanya untuk menerima karakter 0-9, sedangkan untuk bisa menggunakan tombol delete, backspace, maupun space gunakan syntax di bawah ini :

If Not (KeyAscii >= Asc("0") & Chr(13) And KeyAscii <= Asc("9") & Chr(13) Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeySpace) Then
Beep
KeyAscii = 0
End If