Ketikkan Hanya Angka pada Textbox (VB 6.0)

Masih dengan pemrograman, kali ini saya akan bagikan full source code untuk memasukkan/mengetikkan hanya angka (only number) ke dalam Textbox. Kode ini cocok diterapkan pada pengisian untuk No. Telp, Email dan sebagainya. OK, langsung saja ke TKP (Tempat Kode Program maksudnya).

1. Buka VB 6.0 dan buat Project baru.
2. Pada Form yang aktif tambahkan 1 Textbox dan atur Properties Text=Dikosongkan aja.
3. Setelah itu double click Textbox dan pada Text1_Change ganti dengan Text1_KeyPress(KeyAscii As Integer). Di bawah kode tersebut copy paste source code di bawah ini.
   

   If IsNumeric(Chr(KeyAscii)) <> True Then KeyAscii = 0

   atau

   Const Number$ = "0123456789" 'hanya bisa diisi dengan yg ada di const ini
   
   If KeyAscii <> 8 Then
      If InStr(Number$, Chr(KeyAscii)) = 0 Then
         KeyAscii = 0
         Exit Sub
      End If
   End If
   

4. Coba jalankan (F5) dan lihat hasilnya. Selesai.

Silakan download full source code programnya melalui tombol di bawah ini.