Cara Membuat Textbox Agar Hanya Dapat Diisi Angka dengan Visual Basic 6.0

Cara Membuat Textbox Agar Hanya Dapat Diisi Angka dengan Visual Basic 6.0

                                                                                               
Berikut ini penjelasannya :                                                    

1. Tambahkan 1 buah form.
2. Tambahkan 2 buah textbox, ubah event-nya menjadi KeyPress.
3. Masukkan kode berikut disetiap kontrol :
‘code dibawah hanya berfungsi agar dapat diTambahkan dengan angka 1 – 9 :

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 57 Then KeyAscii = 0
End Sub


‘Code dibawah berfungsi agar tombol lainnya seperti Delete, BackSpace, dan SpaceBar juga bisa diterima:
Private Sub Text2_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"
KeyAscii = 0
End If
End Sub

4. Jalankan program tersebut, lalu lihat hasilnya. 
5. Selesai.