Selasa, 19 Oktober 2010

Mendeteksi Ctrl, Shift, dan Alt

Tombol keyboard Ctrl, Shift, dan Alt biasanya digunakan untuk kombinasi shortcut, tapi sayangnya tidak semua event dalam Visual Basic mampu mendeteksi ketiga tombol tersebut. Maka dari itu, harus dibuatkan kode untuk mendeteksinya, berikut kodenya :

Di bagian '(Declarations)' dari Form ketikkan :
Private Declare Function GetKeyState Lib "user32" (ByVal vKey As Integer) As Integer
Const kShift = 16
Const kCtrl = 17
Const kAlt = 18

Untuk contoh penggunaannya (mendeteksi tombol Ctrl) ketikkan :
If GetKeyState(kCtrl) And &H8000 Then
'jika tombol Ctrl ditekan
End If
Sedangkan untuk tombol Shift dan Alt, tinggal gantikan saja tulisan yang berwarna merah dengan "kShift" atau "kAlt" (tanpa tanda petik).

Anda juga dapat melakukan kombinasi seperti berikut :
If GetKeyState(kCtrl) And GetKeyState(Asc("A")) And &H8000 Then
'jika Ctrl + A ditekan
End If

Atau kombinasi seperti berikut :
If GetKeyState(kCtrl) And GetKeyState(kShift) And GetKeyState(kAlt) And &H8000 Then
'jika Ctrl + Shift + Alt ditekan
End If

Label: , , ,

0 Komentar:

Posting Komentar

Pengunjung yang baik selalu meninggalkan jejak berupa komentar. :)

Berlangganan Posting Komentar [Atom]

<< Beranda