√ Arahan Listing Vb6 Biar Textbox Tidak Dapat Diketik Oleh Angka

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

Mengapa hal ini dibutuhkan di aktivitas visual basic?

untuk mencegah terjadinya kesalahan/bug, contohnya pada kolom NAMA yang harusnya diisi oleh karakter alfabet dan seharusnya tidak dapat 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 gres > masukkan textbox

3. Double klik pada textbox dan ubah deklarasi menjadi Keypress
4. Pastekan aba-aba 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)
Sumber http://www.hendrisetiawan.com