Input Karakter Khusus Angka Pada TextBox Di Visual Basic

Untuk menginput karakter dalam sebuah form khususnya Pada TextBox tidak selamanya apa yang kita ingin input itu adalah Huruf atau gabungan antara angka dengan Huruf melainkan kadang kita menginginkan satu jenis type data saja. misalnya Khusus Angka......

Pada postingan ini saya akan memberikan bagaimana cara menginput textbox yang khusus dengan angka saja.

Langsung saja kita mulai:

• Buka Program VB 6.0
• Pada Form1 tambahkan beberapa komponen yaitu:
  - 1 Buah Label dengan Caption dirubah menjadi LATIHAN TEXTBOX KHUSUS PENGINPUTAN ANGKA
  - 2 Buah TextBox, pada properties untuk teks dikossongkan saja
  - 1 Buah CommandButton Dengan Caption dirubah menjadi keluar
  
  Sehingga Tampilannya menjadi seperti gambar berikut ini:
  
  
  
   
• Setelah semua sudah didesain, maka selanjutnya masukkan listing berikut ini ke dalam text1.
  Caranya klik 2 Kali Pada Text1 dan ganti eventnya menjadi KeyPress lalu ketik listing berikut:
  
  If KeyAscii = vbKeyReturn Then
     Text2.SetFocus
  End If
  If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeySpace Or KeyAscii = vbKeyReturn) Then
  MsgBox "Maaf Hanya Boleh Diisi Angka Saja", vbInformation + vbOKOnly, "Perhatian"
  KeyAscii = 0
  End If
  
• Setelah selesai coba jalankan dan lihat hasilnya.......
  

Selamat bekerja dan semoga berhasil.......

HusniKaimuddin