Membuat Text Hanya Untuk Angka Pada VB

Tips VB kali ini, Saya akan memberitahukan bagaimana cara Text1 diatas tidak bisa diisi tulisan A, B, C sampai Z. namun Text1 diatas hanya bisa diisi oleh bilangan 0-9 saja. Hal ini digunakan bisanya untuk model transaksi pemabayaran dalam bentuk uang maupun stock barang. Bagaimana Kodingnya :

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then KeyAscii = 0
End Sub

Semoga Bermanfaat salam pembelajar VB :)


Silahkan kunjungi Kumpulan Tutorial Lengkap VB Dengan KLIK LINK INI

Tweet