| Pregunta: | 43754 - ¿COMO PUEDO HACER PARA PRESIONAR 2 TECLAS JUNTAS |
| Autor: | Luis diaz |
| mi problema es que en el programa que es un juego (en el cual una navecita se tiene que mover y disparar ) en que tengo que precionar 2 teclas simultaneamente ocea que mientaras disparo me tengo que mo ver , pero cuendo lo ejecuto si mantengo presionada la tecla de diparo y luego presiono la de movimiento la nevcita se mueve y deja de dispara y viseversa | |
| Respuesta: | Alfonso Salazar |
| '--------------------------------------------------------------------------------------- ' Module : Prueba para comprobar simultaneamente dos teclas ' DateTime : 21/10/2004 20:08 ' Author : ALFONSO ' Purpose : Creo que esto puede solucionar el problema. '--------------------------------------------------------------------------------------- Option Explicit Dim TeclaQ As Boolean Dim TeclaA As Boolean Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 81 Then 'código de la tecla Q TeclaQ = True End If If KeyCode = 65 Then 'codigo de la tecla A TeclaA = True End If End Sub Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = 81 Then TeclaQ = False End If If KeyCode = 65 Then TeclaA = False End If End Sub Private Sub Form_KeyPress(KeyAscii As Integer) If TeclaQ = True Then Call RutinaDisparo End If If TeclaA = True Then Call RutinaMovimiento End If End Sub | |