Entri TextBox dengan Karakter atau Number

Mungkin hampir sama dengan postingan saya sebelumnya yang mana membahas tentang menghapus karakter secara otomatis. Tapi postingan ini membahas tentang bagaimana membatasi entri data(berupa karakter maupun angka) pada sebuah TextBox. Nah kalo begitu langsung saja ya...

-------------------------------------------------------------
1. Berikut ini contoh entri hanya berupa angka desimal.
-------------------------------------------------------------
Private Function CekAngka(ByVal data As String) As Boolean
If (data >= 48 And data <= 57) Or data = 46 Then 'catatan 48-57=0-9 & 46=.
CekAngka = False
Else
CekAngka = True
End If
End Function

Untuk pemanggilannya, dilakukan di KeyPress pada TextBox1 dengan mengetikkan kode berikut:

e.Handled = CekAngka(Asc(e.KeyChar))

-------------------------------------------------------------
2. Berikut ini contoh entri hanya berupa Karakter A-Z dan a-z beserta spasi.
-------------------------------------------------------------
Private Function CekKarakter(ByVal data As String) As Boolean
If (data >= 65 And data <= 90) Or (data >= 97 And data <= 122) Or data = 32 Then '65-90=A-Z, 97-122=a-z, 32=spasi
CekKarakter = False
Else
CekKarakter = True
End If
End Function

Untuk pemanggilannya, dilakukan di KeyPress pada TextBox2 dengan mengetikkan kode berikut:

e.Handled = CekAngka(Asc(e.KeyChar))
-------------------------------------------------------------

Sebenarnya untuk kasus seperti ini tergantung dari kebutuhan kita. Misalkan ada orang yang kadang tidak membutuhkan karakter spasi atau karakter koma, atau ada juga yang membutuhkan karakter '@'. Kita tinggal menyesuaikan kode Ascii dari karakter yang kita butuhkan.

Berikut ini kode-kode Ascii sebagai referensi.

Silahkan kembangkan sendiri ya. Semoga bermanfaat.