Estaba haciendo esta api y no me lo hace si podes ayudar mejor

mati987 · #1 (**permalink**) 18/02/2010, 11:50

Hola amigos estaba practicando para hacer un juego entonces se necesita la api GetAsyncKeyState que permite tocar una tecla y q aga una accion solo practicaba no es el juego ahora les doy el codigo y me dicen q esta mal lo q queria es q aprete control y q me aparesca un mensajebox

LA DECLARACION:
---------------------------
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

EL CODIGO:
------------------------
On Error Resume Next
'Para comprobar la clave wheteher de control se presiona
If GetAsyncKeyState(17) Then
msgbox "Control key pressed"
End If

mati987 · #2 (**permalink**) 18/02/2010, 12:07

espero que me puedan ayudar con esto ya que estoy muy interesado en saberlo

zxs23 · #3 (**permalink**) 18/02/2010, 12:18

Prueba este ejemplo solo funciona cuando tienes el foco dentro del formulario.
Solo adaptalo para la tecla con la que quieras llamar a una funcion en este caso es una combinacion pero tambien sirve para 1 sola tecla.

Código:

Option Explicit
'***************************************************************************
'*  Nota: Colocar la propiedad KeyPreview del formulario en True
'***************************************************************************

'Variable booleanas para determinar si está presionadas las teclas
Dim Ctrl As Boolean, Alt As Boolean, A As Boolean

'Constantes de las teclas Alt, Ctrl y a
Private Const vbKeyA = 65
Private Const vbKeyalt = 17
Private Const vbKeyControl = 18


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

        'Verifica las teclas Alt - Ctrl y la A
        If KeyCode = vbKeyalt Then Ctrl = True
        If KeyCode = vbKeyControl Then Alt = True
        If KeyCode = vbKeyA Then A = True

        'Si las 3 variables están en True .. mostramos un mensaje
        If Ctrl And Alt And A Then
            MsgBox "Hola"
            Form_KeyUp 0, 0
        End If

End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    
    'Cuando se produce KeyUp ponemos las variables en false
    Ctrl = False
    Alt = False
    A = False

End Sub

Private Sub Form_Load()

    'Establecemos la propiedad KeyPreview para que el formulario _
    'intercepte cualquier intento de presión de tecla

    Me.KeyPreview = True

    Me.Caption = " Ejemplo de  combinación de teclas "

    MsgBox " Presiona las teclas Ctrl+Alt+a", vbInformation

End Sub

mati987 · #4 (**permalink**) 18/02/2010, 12:19

Cita:

Iniciado por zxs23

Prueba este ejemplo solo funciona cuando tienes el foco dentro del formulario.
Solo adaptalo para la tecla con la que quieras llamar a una funcion en este caso es una combinacion pero tambien sirve para 1 sola tecla.

Código:

Option Explicit
'***************************************************************************
'*  Nota: Colocar la propiedad KeyPreview del formulario en True
'***************************************************************************

'Variable booleanas para determinar si está presionadas las teclas
Dim Ctrl As Boolean, Alt As Boolean, A As Boolean

'Constantes de las teclas Alt, Ctrl y a
Private Const vbKeyA = 65
Private Const vbKeyalt = 17
Private Const vbKeyControl = 18


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

        'Verifica las teclas Alt - Ctrl y la A
        If KeyCode = vbKeyalt Then Ctrl = True
        If KeyCode = vbKeyControl Then Alt = True
        If KeyCode = vbKeyA Then A = True

        'Si las 3 variables están en True .. mostramos un mensaje
        If Ctrl And Alt And A Then
            MsgBox "Hola"
            Form_KeyUp 0, 0
        End If

End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    
    'Cuando se produce KeyUp ponemos las variables en false
    Ctrl = False
    Alt = False
    A = False

End Sub

Private Sub Form_Load()

    'Establecemos la propiedad KeyPreview para que el formulario _
    'intercepte cualquier intento de presión de tecla

    Me.KeyPreview = True

    Me.Caption = " Ejemplo de  combinación de teclas "

    MsgBox " Presiona las teclas Ctrl+Alt+a", vbInformation

End Sub

gracias por ayudar ahora lo pruebo

mati987 · #5 (**permalink**) 18/02/2010, 12:23

Cita:

Iniciado por zxs23

Prueba este ejemplo solo funciona cuando tienes el foco dentro del formulario.
Solo adaptalo para la tecla con la que quieras llamar a una funcion en este caso es una combinacion pero tambien sirve para 1 sola tecla.

Código:

Option Explicit
'***************************************************************************
'*  Nota: Colocar la propiedad KeyPreview del formulario en True
'***************************************************************************

'Variable booleanas para determinar si está presionadas las teclas
Dim Ctrl As Boolean, Alt As Boolean, A As Boolean

'Constantes de las teclas Alt, Ctrl y a
Private Const vbKeyA = 65
Private Const vbKeyalt = 17
Private Const vbKeyControl = 18


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

        'Verifica las teclas Alt - Ctrl y la A
        If KeyCode = vbKeyalt Then Ctrl = True
        If KeyCode = vbKeyControl Then Alt = True
        If KeyCode = vbKeyA Then A = True

        'Si las 3 variables están en True .. mostramos un mensaje
        If Ctrl And Alt And A Then
            MsgBox "Hola"
            Form_KeyUp 0, 0
        End If

End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    
    'Cuando se produce KeyUp ponemos las variables en false
    Ctrl = False
    Alt = False
    A = False

End Sub

Private Sub Form_Load()

    'Establecemos la propiedad KeyPreview para que el formulario _
    'intercepte cualquier intento de presión de tecla

    Me.KeyPreview = True

    Me.Caption = " Ejemplo de  combinación de teclas "

    MsgBox " Presiona las teclas Ctrl+Alt+a", vbInformation

End Sub

uy gracias funciono de primera no sabes como te lo agradesco

mati987 · #6 (**permalink**) 18/02/2010, 13:23

Cita:

Iniciado por zxs23

Prueba este ejemplo solo funciona cuando tienes el foco dentro del formulario.
Solo adaptalo para la tecla con la que quieras llamar a una funcion en este caso es una combinacion pero tambien sirve para 1 sola tecla.

Código:

Option Explicit
'***************************************************************************
'*  Nota: Colocar la propiedad KeyPreview del formulario en True
'***************************************************************************

'Variable booleanas para determinar si está presionadas las teclas
Dim Ctrl As Boolean, Alt As Boolean, A As Boolean

'Constantes de las teclas Alt, Ctrl y a
Private Const vbKeyA = 65
Private Const vbKeyalt = 17
Private Const vbKeyControl = 18


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

        'Verifica las teclas Alt - Ctrl y la A
        If KeyCode = vbKeyalt Then Ctrl = True
        If KeyCode = vbKeyControl Then Alt = True
        If KeyCode = vbKeyA Then A = True

        'Si las 3 variables están en True .. mostramos un mensaje
        If Ctrl And Alt And A Then
            MsgBox "Hola"
            Form_KeyUp 0, 0
        End If

End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    
    'Cuando se produce KeyUp ponemos las variables en false
    Ctrl = False
    Alt = False
    A = False

End Sub

Private Sub Form_Load()

    'Establecemos la propiedad KeyPreview para que el formulario _
    'intercepte cualquier intento de presión de tecla

    Me.KeyPreview = True

    Me.Caption = " Ejemplo de  combinación de teclas "

    MsgBox " Presiona las teclas Ctrl+Alt+a", vbInformation

End Sub

che pero esto no es una api tanpoco tiene un bucle continuo yo queria saber sobre la api pero igual gracias por la info

mati987 · #7 (**permalink**) 18/02/2010, 15:32

Cita:

Iniciado por zxs23

Prueba este ejemplo solo funciona cuando tienes el foco dentro del formulario.
Solo adaptalo para la tecla con la que quieras llamar a una funcion en este caso es una combinacion pero tambien sirve para 1 sola tecla.

Código:

Option Explicit
'***************************************************************************
'*  Nota: Colocar la propiedad KeyPreview del formulario en True
'***************************************************************************

'Variable booleanas para determinar si está presionadas las teclas
Dim Ctrl As Boolean, Alt As Boolean, A As Boolean

'Constantes de las teclas Alt, Ctrl y a
Private Const vbKeyA = 65
Private Const vbKeyalt = 17
Private Const vbKeyControl = 18


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

        'Verifica las teclas Alt - Ctrl y la A
        If KeyCode = vbKeyalt Then Ctrl = True
        If KeyCode = vbKeyControl Then Alt = True
        If KeyCode = vbKeyA Then A = True

        'Si las 3 variables están en True .. mostramos un mensaje
        If Ctrl And Alt And A Then
            MsgBox "Hola"
            Form_KeyUp 0, 0
        End If

End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    
    'Cuando se produce KeyUp ponemos las variables en false
    Ctrl = False
    Alt = False
    A = False

End Sub

Private Sub Form_Load()

    'Establecemos la propiedad KeyPreview para que el formulario _
    'intercepte cualquier intento de presión de tecla

    Me.KeyPreview = True

    Me.Caption = " Ejemplo de  combinación de teclas "

    MsgBox " Presiona las teclas Ctrl+Alt+a", vbInformation

End Sub

a y vi otro problema q no solo hace la accion la tecla q tocas si no todas las teclas
yo quiero q solo la aga control

erbuson · #8 (**permalink**) 18/02/2010, 16:20

1 - Crea un nuevo proyecto
2 - Inserta un Timer1 y un Label1
Copia y pega este código
Pruébalo y verás como funciona correctamente esta API

Código vb:

Ver originalOption Explicit
 
' Api Captura Teclado
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
 
Function KeysPressed(KeyCode1 As KeyCodeConstants, Optional KeyCode2 As KeyCodeConstants, Optional KeyCode3 As KeyCodeConstants) As Boolean
  ' Funcion que devuelve VERDADERO si se pulsaron las teclas solicitadas
  If GetAsyncKeyState(KeyCode1) >= 0 Then Exit Function
  If KeyCode2 = 0 Then KeysPressed = True: Exit Function
  If GetAsyncKeyState(KeyCode2) >= 0 Then Exit Function
  If KeyCode3 = 0 Then KeysPressed = True: Exit Function
  If GetAsyncKeyState(KeyCode3) >= 0 Then Exit Function
  KeysPressed = True
End Function
 
Private Sub Form_Load()
  ' Activamos TIMER que capturará las teclas por ejemplo cada 10 milisegundos
  Timer1.Interval = 10
  Timer1.Enabled = True
  ' Maximizamos la pantalla
  Me.WindowState = vbMaximized
  ' Ajustamos y centramos el Label
  Label1.FontSize = 18
  Label1.FontBold = True
  Label1.ForeColor = vbRed
  Label1.Caption = "oOo"
  Label1.AutoSize = True
  Label1.Move (Screen.Width - Label1.Width) / 2, (Screen.Height - Label1.Height) / 2
End Sub
 
Private Sub Timer1_Timer()
 ' Captura de Teclas en el Temporizador
 Timer1.Enabled = False
 If KeysPressed(vbKeyLeft) Then
   Label1.Move Label1.Left - 10
 ElseIf KeysPressed(vbKeyUp) Then
   Label1.Move Label1.Left, Label1.Top - 10
 ElseIf KeysPressed(vbKeyDown) Then
   Label1.Move Label1.Left, Label1.Top + 10
 ElseIf KeysPressed(vbKeyRight) Then
   Label1.Move Label1.Left + 10
 End If
 Timer1.Enabled = True
End Sub

mati987 · #9 (**permalink**) 18/02/2010, 17:28

Cita:

Iniciado por erbuson

1 - Crea un nuevo proyecto
2 - Inserta un Timer1 y un Label1
Copia y pega este código
Pruébalo y verás como funciona correctamente esta API

Código vb:

Ver originalOption Explicit
 
' Api Captura Teclado
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
 
Function KeysPressed(KeyCode1 As KeyCodeConstants, Optional KeyCode2 As KeyCodeConstants, Optional KeyCode3 As KeyCodeConstants) As Boolean
  ' Funcion que devuelve VERDADERO si se pulsaron las teclas solicitadas
  If GetAsyncKeyState(KeyCode1) >= 0 Then Exit Function
  If KeyCode2 = 0 Then KeysPressed = True: Exit Function
  If GetAsyncKeyState(KeyCode2) >= 0 Then Exit Function
  If KeyCode3 = 0 Then KeysPressed = True: Exit Function
  If GetAsyncKeyState(KeyCode3) >= 0 Then Exit Function
  KeysPressed = True
End Function
 
Private Sub Form_Load()
  ' Activamos TIMER que capturará las teclas por ejemplo cada 10 milisegundos
  Timer1.Interval = 10
  Timer1.Enabled = True
  ' Maximizamos la pantalla
  Me.WindowState = vbMaximized
  ' Ajustamos y centramos el Label
  Label1.FontSize = 18
  Label1.FontBold = True
  Label1.ForeColor = vbRed
  Label1.Caption = "oOo"
  Label1.AutoSize = True
  Label1.Move (Screen.Width - Label1.Width) / 2, (Screen.Height - Label1.Height) / 2
End Sub
 
Private Sub Timer1_Timer()
 ' Captura de Teclas en el Temporizador
 Timer1.Enabled = False
 If KeysPressed(vbKeyLeft) Then
   Label1.Move Label1.Left - 10
 ElseIf KeysPressed(vbKeyUp) Then
   Label1.Move Label1.Left, Label1.Top - 10
 ElseIf KeysPressed(vbKeyDown) Then
   Label1.Move Label1.Left, Label1.Top + 10
 ElseIf KeysPressed(vbKeyRight) Then
   Label1.Move Label1.Left + 10
 End If
 Timer1.Enabled = True
End Sub

muchas gracias ahora veo q tal esta

erbuson · #10 (**permalink**) 19/02/2010, 00:36

Por favor, si no es absolutamente necesario, utiliza el boton de la izquierda que indica RESPONDER y no el de la derecha de CITAR, y verás como los mensajes resultan mas fáciles de leer.

mati987 · #11 (**permalink**) 19/02/2010, 09:39

a perdon es q soy nuevo en foros del web