Kode Listing VB6 Agar Textbox tidak bisa diketik huruf alfabet

Advertisement
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.
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.
0 Komentar untuk "Kode Listing VB6 Agar Textbox tidak bisa diketik huruf alfabet"

Silahkan Komentar sobat !
Berkomentarlah dengan sopan dan tidak menaruh link aktif!

Back To Top