Cara Validasi Hanya Number/Numeric Boleh Di Input ke TextBox VB6

Berikut ini adalah cara hanya tipe data number/numeric yang boleh dientri ke dalam textbox di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form, 2 TextBox.
2. Copy-kan coding berikut ke dalam editor yang bertalian.

          'Hanya karakter 0 sampai dengan 9 saja.
          Private Sub Text1_KeyPress(KeyAscii As Integer)
             If KeyAscii < 47 Or KeyAscii > 57 Then KeyAscii = 0
          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

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module