TECLAS DE ATALHOS - CTRL P

RICARDO.RAPA 04/06/2011 10:47:32
#375839

Na propriedade do form coloque:
KeyPreview = True [ô]Acho que nem precisa

CÓDIGO DO FORM:

Private Declare Function GetAsyncKeyState Lib [Ô]user32[Ô] (ByVal vKey As KeyCodeConstants) As Long

Private Function KeyPress(ByVal vKey As KeyCodeConstants) As Boolean
KeyPress = GetAsyncKeyState(vKey) And &H8000
End Function

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyPress(vbKeyControl) And KeyPress(vbKeyP) Then
MsgBox [Ô]Atalho com CTRL+P[Ô]
End If
End Sub

RICARDO.RAPA 04/06/2011 10:57:24
#375840 Resposta escolhida

Se você precisar de outros atalhos brinque com a tabela abaixo:


TABELA VB6 Key Codes
==============
Constant Value Description
vbKeyLButton &H1 Left mouse button
vbKeyRButton &H2 Right mouse button
vbKeyCancel &H3 CANCEL key
vbKeyMButton &H4 Middle mouse button
vbKeyBack &H8 BACKSPACE key
vbKeyTab &H9 TAB key
vbKeyClear &HC CLEAR key
vbKeyReturn &HD ENTER key
vbKeyShift &H10 SHIFT key
vbKeyControl &H11 CTRL key
vbKeyMenu &H12 MENU key
vbKeyPause &H13 PAUSE key
vbKeyCapital &H14 CAPS LOCK key
vbKeyEscape &H1B ESC key
vbKeySpace &H20 SPACEBAR key
vbKeyPageUp &H21 PAGE UP key
vbKeyPageDown &H22 PAGE DOWN key
vbKeyEnd &H23 END key
vbKeyHome &H24 HOME key
vbKeyLeft &H25 LEFT ARROW key
vbKeyUp &H26 UP ARROW key
vbKeyRight &H27 RIGHT ARROW key
vbKeyDown &H28 DOWN ARROW key
vbKeySelect &H29 SELECT key
vbKeyPrint &H2A PRINT SCREEN key
vbKeyExecute &H2B EXECUTE key
vbKeySnapshot &H2C SNAPSHOT key
vbKeyInsert &H2D INS key
vbKeyDelete &H2E DEL key
vbKeyHelp &H2F HELP key
vbKeyNumlock &H90 NUM LOCK key

ASCII [ô]A[ô] - [ô]Z[ô]

vbKeyA 65 A key
vbKeyB 66 B key
vbKeyC 67 C key
vbKeyD 68 D key
vbKeyE 69 E key
vbKeyF 70 F key
vbKeyG 71 G key
vbKeyH 72 H key
vbKeyI 73 I key
vbKeyJ 74 J key
vbKeyK 75 K key
vbKeyL 76 L key
vbKeyM 77 M key
vbKeyN 78 N key
vbKeyO 79 O key
vbKeyP 80 P key
vbKeyQ 81 Q key
vbKeyR 82 R key
vbKeyS 83 S key
vbKeyT 84 T key
vbKeyU 85 U key
vbKeyV 86 V key
vbKeyW 87 W key
vbKeyX 88 X key
vbKeyY 89 Y key
vbKeyZ 90 Z key

ASCII Equivalents: [ô]0[ô] - [ô]9[ô]

vbKey0 48 0 key
vbKey1 49 1 key
vbKey2 50 2 key
vbKey3 51 3 key
vbKey4 52 4 key
vbKey5 53 5 key
vbKey6 54 6 key
vbKey7 55 7 key
vbKey8 56 8 key
vbKey9 57 9 key

Teclado Numérico Keypad

vbKeyNumpad0 &H60 0 key
vbKeyNumpad1 &H61 1 key
vbKeyNumpad2 &H62 2 key
vbKeyNumpad3 &H63 3 key
vbKeyNumpad4 &H64 4 key
vbKeyNumpad5 &H65 5 key
vbKeyNumpad6 &H66 6 key
vbKeyNumpad7 &H67 7 key
vbKeyNumpad8 &H68 8 key
vbKeyNumpad9 &H69 9 key
vbKeyMultiply &H6A MULTIPLICATION SIGN (*) key
vbKeyAdd &H6B PLUS SIGN (+) key
vbKeySeparator &H6C ENTER (keypad) key
vbKeySubtract &H6D MINUS SIGN (-) key
vbKeyDecimal &H6E DECIMAL POINT(.) key
vbKeyDivide &H6F DIVISION SIGN (/) key

F1 - F12

vbKeyF1 &H70 F1 key
vbKeyF2 &H71 F2 key
vbKeyF3 &H72 F3 key
vbKeyF4 &H73 F4 key
vbKeyF5 &H74 F5 key
vbKeyF6 &H75 F6 key
vbKeyF7 &H76 F7 key
vbKeyF8 &H77 F8 key
vbKeyF9 &H78 F9 key
vbKeyF10 &H79 F10 key
vbKeyF11 &H7A F11 key
vbKeyF12 &H7B F12 key
vbKeyF13 &H7C F13 key
vbKeyF14 &H7D F14 key
vbKeyF15 &H7E F15 key
vbKeyF16 &H7F F16 key

Falow. Espero ter Ajudado.

JAIR2002 06/06/2011 09:24:02
#375946

Ricardo,

muito obrigado pela ajuda.