√ Arahan Listing Vb6 Biar Textbox Tidak Dapat Diketik Oleh Angka
Konten [Tampil]
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 AlfabetBerikut 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 SubAnd 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
5. Coba jalankan (running) Sumber http://www.hendrisetiawan.com