Using the KeyDown Event on VB 6.0

Baca Juga

KeyDown adalah event di Visual Basic 6.0 pada saat tombol keyboard ditekan kebawah.untuk dapat menggunakan event ini pastikan untuk set properties form anda yaitu KeyPreview pada nilai True,  hal tersebut untuk memastikan bahwa penekanan tombol akan direspon pertama oleh Form, bukan object/control yang lain.

Kemudian tuliskan code dibawah ini pada jendela coding Form anda
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   On Error Resume Next
     Select Case KeyCode
        Case vbKey... 'Then Find which key you want to use from the list below
            'Code to run when key is pressed
     End Select
End Sub 

Daftar Konstanta tombol keyboard
vbKeyLButton    Left Mouse Button
vbKeyRButton    Right Mouse Button
vnKeyCancel     Cancel Key
vbKeyMButton    Middle Mouse button
vbKeyBack       Back Space Key
vbKeyTab        Tab Key
vbKeyClear      Clear Key
vbKeyReturn     Enter Key
vbKeyShift      Shift Key
vbKeyControl    Ctrl Key
vbKeyMenu       Menu Key
vbKeyPause      Pause Key
vbKeyCapital    Caps Lock Key
vbKeyEscape     Escape Key
vbKeySpace      Spacebar Key
vbKeyPageUp     Page Up Key
vbKeyPageDown   Page Down Key
vbKeyEnd        End Key
vbKeyHome       Home Key
vbKeyLeft       Left Arrow Key
vbKeyUp         Up Arrow Key
vbKeyRight      Right Arrow Key
vbKeyDown       Down Arrow Key
vbKeySelect     Select Key
vbKeyPrint      Print Screen Key
vbKeyExecute    Execute Key
vbKeySnapshot   Snapshot Key
vbKeyInsert     Insert Key
vbKeyDelete     Delete Key
vbKeyHelp       Help Key
vbKeyNumlock    Delete Key

vbKeyA through vbKeyZ are the key code constants for the alphabet
vbKey0 through vbKey9 are the key code constants for numbers
vbKeyF1 through vbKeyF16 are the key code constants for the function keys
vbKeyNumpad0 through vbKeyNumpad9 are the key code constants for the numeric key pad

Math signs are:
vbKeyMultiply      -  Multiplication Sign (*)
vbKeyAdd             - Addition Sign (+)
vbKeySubtract     - Minus Sign (-)
vbKeyDecimal    - Decimal Point (.)
vbKeyDivide        - Division sign (/)
vbKeySeparator  - Enter (keypad) sign

He3 maaf artikel ini hanya alih bahasa dari Forum Visual Basic 6.0 ini.

Untuk Link download yang sudah saya perbaiki dapat dilihat pada halaman DOWNLOAD, walaupun baru sedikit semoga bisa bermanfaat,untuk cara download silakan lihat DI SINI, Terima kasih

3 Tanggapan

Mas kalau misal mau nyimpen database pakainya CTRL + S bisa nggak?

Thanks udah comment >>

Untuk CTRL + S coba code ini pak/bu :

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Select Case KeyCode
Case vbKeyControl
x1 = True
Case vbKeyS
x2 = True
End Select

If x1 And x2 Then
'tuliskan code simpan disini
x1 = False
x2 = False
End If

End Sub

________
**semoga dapat membantu.

Wahh artikelnya sangat membantu sekali


Formulir Kontak

Nama

Email *

Pesan *

Pengikut