Artikel, Program Gratis, Konsultasi & Pemesanan Program…

Belajar VB n Persiapan TA…

Men-Setting Pengisian TextBox Hanya Dengan Angka

Kadang kita membutuhkan sebuah TextBox untuk dapat diisi HANYA DENGAN angka saja. Sebagai Contoh., pengisian TextBox Terkait dengan Pengisian “Jumlah Anak” pastinya hanya memerlukan Angka saja.. atau contoh lain pada Form transaksi dengan pengisian “Jumlah Beli”…

Jika user melakukan kesalahan dalam pengisian tersebut (terutama untuk jumlah beli)., mutlak dipastikan program tersebut akan terjadi Debug Program.. karena pengalian antara Jumlah Beli dan Harga Barang (dalam listing) tidak mengenal pengisian Huruf (A-Z). Untuk itu sangat diperlukan adanya pemagaran dalam pengisian TextBox agar tidak terjadi kesalahan dalam proses pengoperasian program.


Untuk mencobanya., silahkan buat 1 form dengan 1 Label (Jumlah Beli) dan 1 TextBox (Text1)

Lalu., Klik 2x pada TextBox., ubah Change Menjadi KeyPress.., llu ketikkan/masukan listing dibawah ini:

—————————————————————-

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc(“0”) & Chr(13) _
And KeyAscii <= Asc(“9”) & Chr(13)) Then
Beep
KeyAscii = 0
End If
End Sub

—————————————————————-

Coba teman2 running dan masukan TextBox dengan angka (0-9)., lalu coba masukan huruf (A-Z)… Apa yang terjadi…???

Mudah bukan???πŸ˜€

Bagai mana bila yang diperbolehkan hanya huruf saja???

Gunakan listing dibawah ini:

—————————————————————-

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc(“a”) & Chr(13) _
And KeyAscii <= Asc(“z”) & Chr(13) _
Or (KeyAscii >= Asc(“A”) & Chr(13) _
And KeyAscii <= Asc(“Z”) & Chr(13) _
Or KeyAscii = vbKeyBack _
Or KeyAscii = vbKeyDelete _
Or KeyAscii = vbKeySpace)) Then
Beep
KeyAscii = 0
End If
End Sub

—————————————————————-

Selamat mencoba ya…πŸ™‚

<<< Back To Index

Tags:
HOME
TOOL SYSTEM
PROGRAM GRATIS
KUMPULAN PROGRAM
PEMESANAN PROGRAM
HUBUNGI KAMI

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: