TextBox Hanya Menerima Input Huruf

TextBox Hanya Menerima Input Huruf

Source code berikut untuk memfungsikan textbox hanya bisa menerima input huruf. Bisa digunakan untuk input nama atau yang lainnya yang tidak menggunakan angka.

Yang diperlukan :
1 Form
1 TextBox

Source code pada Form :

view source

print?

1	Public Sub HanyaHuruf(ByRef KeyAscii As Integer)

2	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

3	KeyAscii = 0

4

End If

5

End Sub

6

7	Private Sub Text1_KeyPress(KeyAscii As Integer)

8	HanyaHuruf KeyAscii

9

End Sub

Download Source Code