» » Kode Listing VB6 Agar Textbox tidak bisa diketik huruf alfabet

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.
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.
Share on Facebook
Share on Twitter
Share on Google+
Share on LinkedIn
0 Komentar untuk "Kode Listing VB6 Agar Textbox tidak bisa diketik huruf alfabet"

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

Back To Top