Código de Visual Basic para Aplicaciones - controlar tecla Numlock

controlar tecla Numlockgráfica de visualizaciones


Visual Basic para Aplicaciones

Publicado el 18 de Noviembre del 2015 por carlos
694 visualizaciones desde el 18 de Noviembre del 2015. Una media de 14 por semana
decretar estado de teclado numérico

01

Publicado el 18 de Noviembre del 2015gráfica de visualizaciones de la versión: 01
695 visualizaciones desde el 18 de Noviembre del 2015. Una media de 14 por semana
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
'con este código muestro como saber si esta activa la tecla NUMLOCK  no es de mi autoria copie el
'código y simple mente lo modifique y  adapte a la necesidad que tuve lo publico pues a otras
'personas puede servir
 
'primero la librería en un modulo
 
 
 
Option Compare Database
Option Explicit
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Long
-------------------------------------------------------------------------------------------------------------------------------------
Public Sub Boton_NUMLOCK_Click()
 
   If GetKeyState(144) = 0 Then SendKeys "{NUMLOCK}"   'Aquí verificamos si la tecla num lock está apagado que sería el valor de (0) entonces lo activaremos con el SendKeys "{NUMLOCK}" 
 
End Sub
 
'ya con este ejemplo podemos adaptar mas eventos de teclas a nuestras necesidades



Comentarios sobre la versión: 01 (0)


No hay comentarios
 

Comentar la versión: 01

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios

http://lwp-l.com/s3348