Mostrando postagens com marcador NumLock. Mostrar todas as postagens
Mostrando postagens com marcador NumLock. Mostrar todas as postagens

terça-feira, 26 de junho de 2012

CapsLock, NumLock ou ScrollLock estão ativados?

Para saber se as teclas CapsLock, NumLock ou ScrollLock estão ativadas utilize dos códigos abaixo:

Dim bln As Boolean

bln =
My.Computer.Keyboard.CapsLock
bln =
My.Computer.Keyboard.NumLock
bln =
My.Computer.Keyboard.ScrollLock

Estes códigos retornaram True se a tecla correspondente estiver ativa e False se não estiver ativada.

Simples, não?