KeyPress code of Ctrl + C

[checkOut]

Hi all,

anyone know what's the KeyPress code of Ctrl + C
Copy code

Thnx all,

Gerard
Public Sub KeyPress(KeyAscii)
if <Ctrl + C> then

end if
end Sub

 

[danvlas]

Not KeyPress, but KeyDown(KeyCode As Integer, Shift As Integer)

KeyCode = 67 (C)
Shift = 2 (Ctrl)

Good luck




Daniel Vlas
Systems Consultant

http://www.geocities.com/danvlas/AutoMail.html

 

[checkOut]

Tnx Danvlas,
it works..

 

[JohnYingling]

To find the code for any key, put a Msgbox in the KeyPress Event. You will find that Ctrl+A thru CTRL+Z come thru Keypress as Keyascii values 1 thru 26. ESC comes thru as 27.

Private Sub Text1_KeyPress(KeyAscii As Integer)
MsgBox KeyAscii
End Sub

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing Control

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[danvlas]

Yep...but Ctrl+A will just select all records, without returning any message box...

And... Ctrl + {AnyNumericKey} returns...nothing...

I still think KeyDown should be used...






Daniel Vlas
Systems Consultant

http://www.geocities.com/danvlas/AutoMail.html