Acción al presionar la tecla b

[..::MaRcOs::..]

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

[Avellaneda]

Iniciado por ..::MaRcOs::..

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

[..::MaRcOs::..]

gracias por responder
lo acabo de probar y no me funciona :(
que mas puedo hacer?

[Avellaneda]

Iniciado por ..::MaRcOs::..

gracias por responder
lo acabo de probar y no me funciona :(
que mas puedo hacer?

Le pusiste al Form desde el que llamas a Form5 la propiedad KeyPreview a True y quitaste el timer?

[..::MaRcOs::..]

uppsss se me paso lo del Form1.KeyPreview = True
ya lo puse y corre perfecto muchisimas gracias
y me gusto poder eliminar el timer por q lo tenia
con intervalo a 1 y no se pero no me generaba confianza
ademas de el problema q se activaba estando minimizado

[yomasters]

Iniciado por Avellaneda

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

ola yo use tu codigo pero en visual basic 2008 no funciona y tampoco es k me tire algun error de redaccion sino que simplemente no pasa nada ????

k otra forma puedo usar para ejecutar una accion al presionar una tecla ???

[pkj]

Prueba así:

Código :

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.B Then
    Form5.Show
End If
End Sub
 

Si tu form1 no se llama form1 cambia la declaracion.