Membatasi Karakter Inputan Angka(Number) pada Vb6

Membatasi karakter inputan ke dalam komponen Text pada VB6 sangat diperlukan untuk memfilter karakter yang hanya diperlukan saja. Untuk kasus ini kamu akan membatasi karakter hanya angka, dan tombol backspace saja pada kolom Inputan textbox kamu.

1. Buatlah Project baru beri nama Karakter Inputan Angka, Simpanlah sesuai dengan lokasi sebelumnya lalu buat lah form Kosong dan tambahkan Komponen TextBox.

        2. Jika Sudah, sekarang Kamu akan membuat kode program pada property Keypress  TextBox,      Selanjutnya Kamu dapat ketikkan kode program seperti dibawah ini.

Private Sub Text1_KeyPress(KeyAscii As Integer)

        KeyAscii = ValidasiAngka(KeyAscii)
   
End Sub
 
Private Function ValidasiAngka(VKeyAscii As Integer) As Integer
On Error Resume Next

If Not (VKeyAscii >= Asc("0") & Chr(13) And VKeyAscii <= Asc("9") & Chr(13) _
Or VKeyAscii = vbKeyBack Or VKeyAscii = vbKeyDelete Or VKeyAscii = vbKeyTab Or VKeyAscii = 45) Then
    Beep
    ValidasiAngka = 0
Else
    ValidasiAngka = VKeyAscii
End If

End Function



   3. Sampai disini pembuatan kode program untuk pembatasan karakter inputan hanya angka saja telah selesai.