Kode Listing VB6 Agar Textbox tidak bisa diketik huruf alfabet

Kode Listing VB6 Agar Textbox tidak bisa diketik huruf alfabet.

Mengapa hal ini diperlukan di program visual basic?

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

Baca Juga : Kode Listing VB6 Agar Textbox tidak bisa diketik Angka/Numerik

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 tnoktp_KeyPress(KeyAscii As Integer)

If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyReturn) Then KeyAscii = 0

End Sub

5. Coba Running programnya.