Membuat Hanya Huruf atau Angka Saja Yang Diinput di TextBox Visual Basic

Posted by imin at Saturday, January 05, 2013

Huruf dan Angka

Membuat Hanya Huruf atau Angka Saja Yang Diinput di TextBox Visual Basic - Pada postingan kali ini BLOGNYA SI IMIN akan memposting tentang pemrograman. Pemrograman kali ini kita akan belaja mengenai Visual Basic atau VB. Disini saya menggunakan visual basic 6. Nah dalam pembelajaran Visual Basic kali ini, saya akan membagi sebuah tips dan trik VB tentang bagaimana cara membuat hanya huruf atau angka saja di textboxt. Mau tahu caranya? Ikuti langkahnya di bawah ini:

-Buatlah sebuah form baru di VB kalian

-Tambahkan sebuah 1 buah TextBox (ganti namanya menjadi TextAngka)

-Dan Masukkan coding berikut ini di TextBox (TextAngka) dengan Event Keypress

Private Sub TextAngka_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) And KeyAscii <= Asc("9") & Chr(13) Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeySpace) Then
MsgBox "Isikan Angka Saja", 48, "Perhatian"
KeyAscii = 0
End If
End Sub

-Kalau sudah coba jalankan program.

-Kemudian untuk yang Huruf kalian tambahkan 1 buah TextBox lagi (ganti namanya menjadi TextHuruf)

-Dan Masukan coding berikut ini di TextBox (TextHuruf) dengan Event Keypress

Private Sub TextHuruf_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
MsgBox "Isikan Huruf Saja", 48, "Perhatian"
KeyAscii = 0
End If
End Sub