1 Textbox hanya dapat diisi Angka di VB6

Untuk ngisi waktu luang, nih cara membuat textbox VB6 cuma bisa di isi angka:

1.Tambahkan 1 textbox
2.Double click textboxnya , biasanya prosedur defaultnya adalah change, ganti prosedurnya dengan keypress sehingga jadi begini  Private Sub Text1_KeyPress(KeyAscii As Integer)
3.Masukan script ini:

If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then KeyAscii = 0
Else
End if

Selamat mencoba.

Komentar →