Posted by: Eko Nur Hidayat | November 29, 2009

Pertemuan 4 Weekend

Event KeyPress pada TextBox

Kejadian pada suatu object  jika ditekan tombol keyboard.  Setiap tombol diidentifikasi sebagai keyascii dalam nilai ascii maupun vbkey.

Kode-kode tombol Bisa dilihat dari jendela Object Browser (dengan menekan tombol F2 dari jendela VB) Gunakan kode pencarian keycode

Contoh :

Tombol angka 5 = VbKey5 atau 53

Tombol enter VbKeyReturn atau 13

Event pada TextBox :

Private sub Text1_keypress(keyascii as Integer)

If keyascii=13 then

< blok kode jika ditekan tombol ENTER >

Endif

End sub

Contoh 1: Jika pada isian object Text2 ditekan tombol ENTER, maka kursor ke isian object Textt3 maka perintahnya :

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text3.SetFocus

End If

End Sub

Contoh 2: Tulisan yang diisikan ke textbox text1 otomatis diubah menjadi huruf kapital, maka perintahnya adalah :

Private sub Text1_keypress(keyascii as integer)

Keyascii=asc(ucase(chr(keyascii)))

End sub

Contoh 3 : TextBox Hanya bisa diisi angka :

If KeyAscii < 48 Or KeyAscii > 57 Then

KeyAscii = 0

End If

LATIHAN : BUKA LATIHAN ANDA, BUAT ISIAN SELAU HURUF KAPITAL UNTUK ISIAN TEXT DAN HANYA BISA DIISI ANGKA JIKA ISIAN BERUPA BILANGAN, JIKA DITEKAN ENTER KE ISIAN BERIKUTNYA !!!


Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Categories

%d bloggers like this: