Membatasi Input hanya Numeric

ada kalanya dalam membagun aplikasi ada input yang hanya bolrh di isi dengan Angka saja (0 - 9),contoh untuk input nomor telepon ,NIP dll. kali ini saya akan sedikit berbagi tentang hal di atas

1. Klik Ganda Pada Textbox yang ingin dibatasi Inputnya dalam contoh ini saya gunakan text1
2. Ganti Event change menjadi keypress
3. ketik perintah dibawah ini


Private Sub text1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9")
_ Or KeyAscii = vbKeyBack) Then
beep
KeyAscii =0
end if
End Sub

Selamat mencoba

Baca Selengkapnya..

Mengubah input menjadi Kapital

biasanya dalam membangun aplikasi terkadang dibutuhkan untuk mengubah input menjadi huruf kapital. dalam trik kali ini saya ingin membagi sedikit pengetahuanku. langsung aja yah!!!!!!

1. Klik ganda pada TextBox yang ingin kita setting menjadi Huruf Kapital
2. ganti event dari textboxt yang semula change menjadi keypress
3. Keitk seperti listing dibawah ini :

Private Sub text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

4. Tekan F5

Selamat Mencoba

Baca Selengkapnya..

Tombol ENTER Sebagai Tombol TAB

Trik Ini berfungsi apabila tombol ENTER ditekan maka fungsix sama dengan Tombol TAB
* Bukalah Program Visual Basic 6.0 dan mulaikah dengan form baru
* Masukkan komponen "textbox" ke dalam area form

* Klik 2 kali pada Text1 ubalah event Change menjadi KeyPress
* Dan ketiklah Perintah dibawah ini

Private sub text1 Keypress(keyascii as integer)
if keyascii = 13 then
sendkey(vbtab)
sendkey "{home}+{end}"
end if
ed sub

* tekan F5 unutk menjalankan program

Selamat mencoba

Baca Selengkapnya..