Activar o desactivar teclas (BloqMayús, Insert, BloqNum)


Volver
'*********************************************************
' GetKey
'
' Devuelve el estado de una tecla (True/False)
'
' Argumentos
'   tecla: la tecla de la que se quiere obtener esa
'   información
'
' Ejemplo de uso:
'
'  - para la tecla insert
'  Call GetKey(vbKeyInsert)
'  - para la tecla BloqNum
'  Call GetKey(vbKeyNumlock)
'  - para la tecla BloqMayús
'  Call GetKey(vbKeyCapital)
'
' SetKey
'
' Activa/desactiva una tecla
'
' Argumentos
'   tecla: la tecla que se ha de manipular
'   activar: true o false si se quiere activar o
'   desactivar
'
' Ejemplo de uso:
'
'  - para activar la tecla insert
'  Call SetKey(vbKeyInsert, True)
'  - para la desactivar la tecla BloqMayús
'  Call SetKey(vbKeyCapital, False)
'
' Fecha: Febrero 2003
' Autor: Juan M. Afán de Ribera
'
Private Type KeyboardBytes
   kbByte(0 To 255) As Byte
End Type

Private Declare Function GetKeyboardState _
                Lib "user32" _
                (kbArray As KeyboardBytes) As Long

Private Declare Function SetKeyboardState _
                Lib "user32" _
                (kbArray As KeyboardBytes) As Long
Function GetKey(tecla As Long) As Boolean Dim kbArray As KeyboardBytes GetKeyboardState kbArray GetKey = IIf(kbArray.kbByte(tecla) = 1, True, False) End Function
Sub SetKey(tecla As Long, activar As Boolean) Dim kbArray As KeyboardBytes GetKeyboardState kbArray kbArray.kbByte(tecla) = IIf(activar = True, 1, 0) SetKeyboardState kbArray End Sub
'*********************************************************
Contactar Última actualización 4/10/2003     © Juan M. Afán deRibera