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
Daftar Konstanta tombol keyboard
He3 maaf artikel ini hanya alih bahasa dari Forum Visual Basic 6.0 ini.
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.
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