elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Tutorial básico de Quickjs


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  2 teclas = 1 accion ?
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: 1 [2] Ir Abajo Respuesta Imprimir
Autor Tema: 2 teclas = 1 accion ?  (Leído 3,031 veces)
xadap

Desconectado Desconectado

Mensajes: 220


http://www.tac822.net


Ver Perfil WWW
Re: 2 teclas = 1 accion ?
« Respuesta #10 en: 2 Octubre 2005, 11:29 am »

pd: las variables son boolean no integer, sorry ;)

eso te iba a preguntar mientras leía xD
pero lo de tipo switch no lo entiendo. si son boolean, como van a ser switch?

por lo demás, el código funciona a la perfección! muchas gracias!!


En línea

xadap

Desconectado Desconectado

Mensajes: 220


http://www.tac822.net


Ver Perfil WWW
Re: 2 teclas = 1 accion ?
« Respuesta #11 en: 2 Octubre 2005, 11:45 am »

problema:

Código:
Dim keynumpad1 As Boolean
Dim keynumpad2 As Boolean


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

If KeyCode = 97 Then
    keynumpad1 = False
End If

If KeyCode = 98 Then
    keynumpad2 = False
End If

End Sub


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

If KeyCode = 97 Then
    keynumpad1 = True
End If

If KeyCode = 98 Then
    keynumpad2 = True
End If


If keynumpad1 And keynumpad2 Then
MsgBox ("estan las dos teclas presionadas")

ElseIf kenumpad1 Then
    MsgBox "solo 1"
ElseIf keynumpad2 Then
    MsgBox "solo 2"
End If

probad este código, y dadle a 1, a 2, y a ambas. será más fácil de explicar si lo véis :)


En línea

Slasher-K


Desconectado Desconectado

Mensajes: 1.477


Ver Perfil
Re: 2 teclas = 1 accion ?
« Respuesta #12 en: 2 Octubre 2005, 11:45 am »

Código:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If Shift = vbShiftMask Then
    'Si está presionada la tecla shift.
    '
    Select Case KeyCode
      Case vbKeyNumpad6:
      Case vbKeyNumpad8:
    End Select
  Else
    'Lo que haría con la misma tecla si Shift no está presionado.
    '
    Select Case KeyCode
      Case vbKeyNumpad6:
      Case vbKeyNumpad8:
    End Select
  End If

Saludos.
En línea



A la reina de las profundidades que cuida los pasos de una sombra en la noche :*
Páginas: 1 [2] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Boton HTML + acción PHP « 1 2 »
PHP
Shell Root 10 13,255 Último mensaje 5 Mayo 2015, 10:47 am
por Hurdano
problema accion
Programación C/C++
pMV2ere 3 1,169 Último mensaje 1 Noviembre 2012, 23:12 pm
por pMV2ere
Accion jquerry
Bases de Datos
datab 8 2,590 Último mensaje 31 Mayo 2015, 00:31 am
por Pablo Videla
Accion de gracia
Programación C/C++
Erecc 5 1,296 Último mensaje 4 Noviembre 2015, 12:02 pm
por Erecc
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines