ABCdatos
Programas y tutoriales
en castellano
ABCdatos tu página de inicio Inicio       
Su navegador rechazó un objeto incrustado.
Su navegador no soporta objetos incrustados. Vea los últimos mensajes en el foro.
PUBLICIDAD


Activar/desactivar el teclado númerico - Visual Basic

          
  • Descripción
  • Opiniones
  • Recomendar

PUBLICIDAD
Este programa demuestra cómo se puede conectar o desconectar el teclado numérico (NUM LOCK)

Pasos a seguir:

1. Crea un nuevo proyecto en visual basic

2. Añade el siguiente código a General Declarations del formulario Form1

Private Declare Sub GetKeyboardStateByString Lib "user32" Alias "GetKeyboardState" (ByVal pbKeyState As String)

Private Declare Sub SetKeyboardStateByString Lib "user32" Alias "SetKeyboardState" (ByVal lppbKeyState As String)

Const VK_NUMLOCK = &H90

3. Añade un control Command Button al Form1. Command1 será por defecto.

en propiedades caption escribe "Conectar".

4. Añade el siguiente codigo al evento Click de Command1:

Private Sub Command1_Click()

Dim NumLockKey As String * 256

NumLockKey = Space$(256)

GetKeyboardStateByString (NumLockKey)

Mid$(NumLockKey, VK_NUMLOCK + 1, 1) = Chr$(1)

Call SetKeyboardStateByString(NumLockKey)

End Sub

5. Añade un segundo control Command Button al formulario por defecto será Command2

en propiedades caption escribe "Desconectar".

6. Añade el siguiente codigo al evento click de Command2:

Private Sub Command2_Click()

Dim NumLockKey As String * 256

NumLockKey = Space$(256)

GetKeyboardStateByString (NumLockKey)

Mid$(NumLockKey, VK_NUMLOCK + 1, 1) = Chr$(0)

Call SetKeyboardStateByString(NumLockKey)

End Sub

Ejecuta el programa pulsando F5.

No hay opiniones de los usuarios. ¡Sé el primero en dar tu opinión! (No requiere registro)

¿Te gusta este truco? ¡Recomiéndaselo a un amigo!

     
     
     
     
     
     
Las direcciones de correo electrónico que se proporcionan en este servicio, solamente serán utilizadas con la finalidad de enviar la recomendación al destinatario. Ni tu dirección de correo ni la de tu amigo/a serán utilizadas para ningún otro propósito.
Trucos del mismo autor Más trucos del mismo autor
Do Events
¿Cuántas veces has asignado a un Label un nuevo Caption y no lo ha mostrado?. Pues prueba poniendo DoEvents después de la asignación y verás como se muestra...
sigue leyendo
Text Box
Este truco se trata de hacer una selección del contenido del textbox, sólo que se calca en él, ya sea o no en array. 'Para un control Private Sub Text1_GotFocus() Text1.SelStart...
sigue leyendo
Redefinir instrucciones de VB
Si declaras una función con el mismo nombre que una ya existente, se usará esa función o instrucción en lugar de la que incluye el VB. Por ejemplo, se trata de una...
sigue leyendo
Ejecutar con Start
Con Start es posible ejecutar aplicaciones desde la línea de comando y si se pueden ejecutar aplicaciones... ¿se podrán ejecutar accesos directos? Así es, y no sólo...
sigue leyendo
¿Dónde está instalado Windows? - Visual Basic
Este programa muestra cómo buscar desde una aplicación Visual Basic dónde se encuentra instalado Microsoft Windows. 1. Crea un nuevo proyecto en VB por defecto será Form1 2...
sigue leyendo
Cerrar un formulario
Al cerrar un form, podemos saber si es nuestro código el que cierra la aplicación o bien se cierra por otra causa. Esta comprobación se hace en Form_QueryUnload y puede ser...
sigue leyendo

Copyright © 1999-2013 ABCdatos.com. Todos los derechos reservados.
Para información sobre privacidad, consulte la declaración de política de privacidad.
Contactar con ABCdatos.