TextBox Hanya Menerima Input Angka

TextBox Hanya Menerima Input Angka

Source code berikut untuk memfungsikan agar textbox hanya menerima input angka. Cocok digunakan untuk input kode pos atau no telepon.

Yang diperlukan :
1 Form
1 TextBox

Source code :

view source

print?

1	Public Sub HanyaAngka(ByRef KeyAscii As Integer)

2	If ((KeyAscii <>And KeyAscii <> 8 ) Or KeyAscii > 57) Then

3	KeyAscii = 0

4

End If

5

End Sub

6

7	Private Sub Text1_KeyPress(KeyAscii As Integer)

8	HanyaAngka KeyAscii

9

End Sub

Download Source Code