Ver Mensaje Individual
  #2 (permalink)  
Antiguo 31/10/2008, 06:40
Avellaneda
Colaborador
 
Fecha de Ingreso: enero-2008
Ubicación: Unas veces aquí, otras veces allí
Mensajes: 1.482
Antigüedad: 17 años, 3 meses
Puntos: 37
Respuesta: Acción al presionar la tecla b

Cita:
Iniciado por ..::MaRcOs::.. Ver Mensaje
Hola tengo un problemita
resulta que necesito que al precionar la tecla b
en un formulario se ejecute una accion.

y tengo el siguiente codigo pero pasa que lo toma para todo
por ejemplo estoy en el messenger y oprimo b
y se ejecuta entonces necesito q solo sea en la aplicacion
y de una vez ver si se puede sacar del timer.


Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Private Sub Timer11_Timer()
If GetKeyState(vbKeyB) < 0 Then
Form5.Show
End If
End Sub
Hola, creo que es mas sencillo sin APIs

Propiedad KeyPreview del Form = True:

Código:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyB Then
    Form5.Show
End If
End Sub