Menampilkan Kode Tombol Keyboard dan Mouse dengan Visual Basic

23 01 2009

Dulu ketika awal-awal saya belajar Visual Basic.. saya sempat kebingungan ketika membuat sebuah program, yaitu bagaimana caranya membuat Form Login dimana ketika tombol ENTER pada keyboard ditekan maka mengecek inputan user dan password kemudian login ke Form Utama. Dengan begitu user tidak perlu mengklik tombol Login dengan mouse.

Setelah tau rahasianya…ternyata logikanya ternyata mudah sekali.
Ketika program menerima event yang namanya “Keypress”, program mengecek tombol apakah itu, jika tombol itu adalah tombol ENTER maka fungsi untuk mengecek login dijalankan.

untuk tahu tombol apa yang kita tekan program menggunakan KeyAscii atau KeyCode dari tombol keyboard tersebut. Contohnya tombol ENTER memiliki KeyAscii dan KeyCode =13.

Kurang lebih kode programnya seperti ini:

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
‘ disini letak fungsi atau pernyataan yang akan dijalankan
End If
End Sub

Berapa Kode untuk tombol SPASI,TAB, Huruf A, atau Karakter “?” ???
Susah pastinya jika kita harus menghapal semua kode tombol yang ada di keyboard kita.

Berikut ini adalah cara untuk menampilkan nilai KeyAscii dan KeyCode serta Nilai tombol Mouse di Visual Basic Form. Cara kerjanya yaitu ketika Tombol keyboard atau mouse ditekan maka program akan menampilkan Nilai Keyascii dan Keycodenya di Form.

Caranya :
1. Buatlah tampilan pada form sebagai berikut:
tampilkode

Tambahkan 6 Buah Label ke dalam form, kemudian ubah property Caption masing masing label seperti yang tertampil pada gambar di atas.

2. Copy Paste atau ketik kode berikut ini di Kode Editor :

==================================================================

‘menampilkan keycode

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Label1.Caption = KeyCode
End Sub

‘menampilkan keyascii
Private Sub Form_KeyPress(KeyAscii As Integer)
Label2.Caption = KeyAscii
End Sub

‘menampilkan mousekey
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label3.Caption = Button
End Sub

==================================================================

3. Jalankan program kemudian coba tekan sembarang tombol pada keyboard, maka akan muncul kode dari tombol tersebut di form. kurang lebih tampilannya sebagai berikut :

hasilkode

Untuk diketahui:

KEYASCII: hanya terbatas pada karakter dan simbol saja, kode untuk huruf kecil berbeda dengan huruf kapital
KEYCODE: hampir semua tombol di keyboard, satu tombol satu kode
MOUSEKEY : klik kanan, klik kiri

Semoga Bermanfaat.


Actions

Information

8 responses

7 07 2009
saeful

bagaimana cara nya membuat form1

10 08 2009
fharipurwanto

buka vbnya trus klik menu project -> add form

8 02 2010
aldi

mas caranya menfungsikan tombol enter di keybord…..

jadi tidak usah banyak2 gunain mouse….

thanks

9 02 2010
fharipurwanto

maksudnya memfungsikan gimana…klo untuk mengakses tombol atao komponen di program biasanya pake Tab untuk memilih object trus enter untuk klik,

12 06 2010
mas ragil

nice inpo, gw gk kepikiran dg cara ini, drpada susah2 ngapalin. thx bro….

28 07 2010
Raditya

Taks bwt infonya bro … jd tambah tau … ^_^

1 08 2010
Muhammad Iryani

Ass. Terima Kasih…

11 12 2010
irwan

kalau mau fungsikan tombol enter pada vbnya kayak gini:

‘pake keypress
if keyascii = 13 then
text1.setfocus
end if

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




%d bloggers like this: