Membatasi Karakter Inputan Huruf(Caracter) 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 Huruf, dan tombol backspace saja pada kolom Inputan textbox kamu.

1.       Buatlah Project baru beri nama Karakter Inputan Nama Huruf, 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 = ValidasiHuruf(KeyAscii)

End Sub
 

Private Function ValidasiHuruf(VKeyAscii As Integer) As Integer
On Error Resume Next


If (VKeyAscii >= Asc("0") & Chr(13) And VKeyAscii <= Asc("9") & Chr(13)) Then
    Beep
    ValidasiHuruf = 0
Else
    ValidasiHuruf = VKeyAscii
End If

End Function 

3. Sampai disini pembuatan kode program untuk pembatasan karakter inputan hanya Huruf, dan tombol backspace saja telah selesai.