Kode Listing VB6 Agar Textbox Tidak Bisa Diketik Oleh angka

Berikut ini adalah Kode Listing VB6 Agar Textbox Tidak Bisa Diketik Oleh angka.

Mengapa hal ini diperlukan di program visual basic?

untuk mencegah terjadinya kesalahan/bug, misalnya pada kolom NAMA yang harusnya diisi oleh karakter alfabet dan seharusnya tidak bisa diisi oleh angka.

Baca Juga : Kode Listing VB6 Agar Textbox Tidak Bisa Diketik Oleh Huruf Alfabet

Berikut ini penjelasannnya :
1. buka Visual basic 6.0 anda
2. Buat form baru > masukkan textbox

3. Double klik pada textbox dan ubah deklarasi menjadi Keypress
4. Pastekan kode listing berikut ini :

Private Sub tnamauser_KeyPress(KeyAscii As Integer)

If Not (KeyAscii >= Asc("a") & Chr(13) _
            And KeyAscii <= Asc("z") & Chr(13) _
            Or (KeyAscii >= Asc("A") & Chr(13) _
                And KeyAscii <= Asc("Z") & Chr(13) _
                Or KeyAscii = vbKeyBack _
                Or KeyAscii = vbKeyDelete _
                Or KeyAscii = vbKeySpace)) Then
        Beep
        KeyAscii = 0
    End If

End Sub


5. Coba jalankan (running)