Detectar Capslock

06/10/2005 - 20:16 por Hernandez, Roberto | Informe spam
Saludos.
Muchach@s: ¿Existe alguna forma en VBA de detectar si el bloqueo de
mayúsculas está activo o inactivo?
Gracias de antemano.
 

Leer las respuestas

#1 Héctor Miguel
06/10/2005 - 21:50 | Informe spam
hola, Roberto !

... alguna forma en VBA de detectar si el bloqueo de mayúuculas esta activo o inactivo?



una forma [que puedes adaptar para otras teclas]... copia/pega las siguientes lineas...
en un modulo de codigo 'normal' ==Private Const CapsLock As Long = &H14
Private Declare Function EstadoDelTeclado Lib "User32" _
Alias "GetKeyboardState" (kState As Byte) As Long
Private Function BloqMay() As Boolean
Dim Estado As Long, Teclas(0 To 255) As Byte
Estado = EstadoDelTeclado(Teclas(0))
BloqMay = Teclas(CapsLock) = 1
End Function
Sub Como_esta_BloqMay()
MsgBox "El estado de ""Bloq May"" es: " & _
IIf(BloqMay, "Activado", "Desactivado")
End Sub

saludos,
hector.

Preguntas similares