Cómo sólo captura CTRL, ALT o teclas MAYÚS en Basic

Seleccione idioma Seleccione idioma
Id. de artículo: 59131 - Ver los productos a los que se aplica este artículo
Expandir todo | Contraer todo

En esta página

Resumen

Normalmente, para capturar CTRL (CONTROL), ALT y MAYÚS en combinación con otras teclas, establece los bits de estas claves del primer byte de los dos bytes CHR$() en la instrucción de KEY (indicador de teclado).

Sin embargo, para capturar los CTRL, ALT y MAYÚS claves únicamente (no en combinación con otras teclas), el indicador de teclado en la instrucción KEY debe ser CHR$(0) para el teclado estándar o CHR$(&H80) para claves específicas de un teclado extendido.

Más información

La sintaxis de la instrucción de KEY (donde n = 15 y 25 puede ser claves definidos por el usuario) es como sigue:
CLAVE n, CHR$(keyboardflag) + CHR$(scancode)
La tabla siguiente enumera los códigos de análisis para las teclas MAYÚS CTRL, ALT y:
   Key           Scan Code
   ---           ---------
   CTRL          &H1D
   ALT           &H38
   LEFT SHIFT    &H2A
   RIGHT SHIFT   &H36
				
Nota: para capturar la tecla de derecha CTRL o ALT derecha (se encuentra sólo en un teclado extendido 101), se deben utilizar el indicador de teclado extendido (& H80) en el byte de indicador de teclado.

Ejemplo de código

El ejemplo de código siguiente intercepta los CTRL, ALT y MAYÚS claves únicamente:
' NOTE:  This program requires NUM LOCK and CAPS LOCK to be off.
KEY 15, CHR$(&H0) + CHR$(&H1D)     ' LEFT CTRL (on
ON KEY(15) GOSUB Ctrl              ' Standard or Extended keyboard).
KEY(15) ON

KEY 16, CHR$(&H80) + CHR$(&H1D)    ' RIGHT CTRL (on Extended keyboard).
ON KEY(16) GOSUB Ctrl
KEY(16) ON

KEY 17, CHR$(&H0) + CHR$(&H38)     ' LEFT ALT (on
ON KEY(17) GOSUB alt               ' Standard or Extended keyboard).
KEY(17) ON

KEY 18, CHR$(&H80) + CHR$(&H38)    ' RIGHT ALT (on Extended keyboard).
ON KEY(18) GOSUB Alt
KEY(18) ON

KEY 19, CHR$(&H0) + CHR$(&H2A)     ' LEFT SHIFT (on
ON KEY(19) GOSUB Shift             ' Standard or Extended keyboard).
KEY(19) ON

KEY 20, CHR$(&H0) + CHR$(&H36)     ' RIGHT SHIFT (on
ON KEY(20) GOSUB Shift             ' Standard or Extended keyboard).
KEY(20) ON

WHILE INKEY$ <> CHR$(27): WEND     ' Press ESC to end.
END

Ctrl: PRINT "CTRL"
RETURN

Alt:  PRINT "ALT"
RETURN

Shift:  PRINT "SHIFT"
RETURN
				

Propiedades

Id. de artículo: 59131 - Última revisión: martes, 16 de agosto de 2005 - Versión: 2.1
La información de este artículo se refiere a:
  • Microsoft Visual Basic for MS-DOS
  • Microsoft QuickBasic 4.0
  • Microsoft QuickBASIC 4.0b
  • Microsoft QuickBasic 4.5 para MS-DOS
  • Microsoft BASIC Compiler 6.0
  • Microsoft BASIC Compiler 6.0b
  • Microsoft BASIC Professional Development System 7.0
Palabras clave: 
kbmt KB59131 KbMtes
Traducción automática
IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.
Haga clic aquí para ver el artículo original (en inglés): 59131
Renuncia a responsabilidad de los contenidos de la KB sobre productos a los que ya no se ofrece asistencia alguna
El presente artículo se escribió para productos para los que Microsoft ya no ofrece soporte técnico. Por tanto, el presente artículo se ofrece "tal cual" y no será actualizado.

Enviar comentarios

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com