Hanya Nomor yang bisa di input

Anda ingin membuat sebuah text box yang hanya bisa di ketikkan berupa data angka saja, biasanya untuk no hp atau nominal uang. Mungkin coding ini bermanfaat untuk anda.

Langkah-langkahnya :

Buatlah 1 form dengan 2 textbox

Kemudian copikan coding dibawah ini ke form

'----------------------------------------------------------------------------

'Hanya karakter 0 sampai dengan 9 saja.

Private Sub Text1_KeyPress(KeyAscii As Integer)

    If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyBack Then

    Else

        KeyAscii = 0

    End If

End Sub

'Cara di atas hanya menerima karakter 0 sampai dengan 9 saja.

'Agar tombol lainnya seperti Delete, BackSpace, dan SpaceBar

'juga bisa diterima, Anda bisa menggunakan tips di bawah ini:

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

        Beep

        KeyAscii = 0

   End If

End Sub

'----------------------------------------------------------------------------

Klik gambar untuk memperbesar

Sekarang coba jalankan program, Selamat Mencoba.

Didalam contoh tersebut ada 2 textbox

Textbox pertama fungsi spasi tidak berfungsi, Sedangkan pada textbox kedua fungsi spasi berfungsi. Jadi sesuaikan sesuai kebutuhan saja. Keterangan juga terdapat decoding. Silahkan dipelajari codingnya.

Untuk memudahkan proses belajar Anda, Ane sudah siapkan file tersebut.

Silahkan download DISINI