Textbox hanya bisa diisi angka

Unknown | 08:22 | vb6

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

Berikut Source codenya:

Public Sub HanyaAngka(ByRef KeyAscii As Integer)

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

KeyAscii = 0

End If

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

HanyaAngka KeyAscii

End Sub

atau juga bisa pake script dibawah ini :

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc(“0″) _
And KeyAscii <= Asc(“9″) _
Or KeyAscii = vbKeyBack) Then
Beep
KeyAscii = 0
End If
End Sub