VB6 Code - Input Textbox Hanya Untuk Numeric

Artikel ini diberi judul input textbox hanya untuk numeric, maksudnya ialah sebuah TextBox hanya dapat diisi dengan angka saja. Kodenya kami buat menjadi sebuah fungsi agar lebih mudah dalam penggunaan serta memiliki sifat dapat digunakan kembali (reusable). Adapun kode yang dimaksud:

Option Explicit

Private Sub OnlyNumeric(KeyAscii As Integer)

  Select Case KeyAscii
      Case 48 To 57                        ' numeric
      Case 8                               ' backspace
      Case Else: KeyAscii = 0
  End Select

End Sub

Cara penggunaan Fungsi TextBox hanya untuk numerik

Private Sub Text1_KeyPress(KeyAscii As Integer)
  OnlyNumeric KeyAscii
End Sub

Posted by Mesin Posting 1.0 Created by http://khoiriyyah.blogspot.com