Home Excel - Dicas Microsoft Excel VBA Excel VBA - API Excel API - api declaracoes ativa ou desativa as teclas numloock e capsloock

Excel API - api declaracoes ativa ou desativa as teclas numloock e capsloock

E-mail Imprimir PDF

Excel VBA Estudos - Saberexcel
Estas declarações API e procedimentos do Aplicativo Microsoft Excel VBA, ativa e desativas a teclas NUM LOOK e CAPSLOCK 


Private Type KeyboardBytes
  kbByte(0 To 255) As Byte
End Type

Dim kbArray As KeyboardBytes

Private Declare Function GetKeyState Lib "User32" (ByVal nVirtKey) As Long
Private Declare Function GetKeyboardState Lib "User32" (kbArray As KeyboardBytes) As Long
Private Declare Function SetKeyboardState Lib "User32" (kbArray As KeyboardBytes) As Long

Const VK_NUMLOCK = &H90

Sub CapsLockOn()
GetKeyboardState kbArray
kbArray.kbByte(VK_NUMLOCK) = 1
SetKeyboardState kbArray
End Sub 

Sub CapsLockOff()
GetKeyboardState kbArray
kbArray.kbByte(VK_NUMLOCK) = 0
SetKeyboardState kbArray
End Sub

'.........................'

Declare Function GetKeyboardState Lib "user32"  (pbKeyState As Byte) As Long
Declare Function SetKeyboardState Lib "user32"  (lppbKeyState As Byte) As Long

 Sub SetMyNumLock()
' NUMLOCK Ligado e CAPSLOCK desligado
Dim Res As Long
Dim KBState(0 To 255) As Byte
Res = GetKeyboardState(KBState(0))
KBState(&H90) = 1 ' num lock 1 = on, 0 = off
KBState(&H14) = 0 ' caps lock 1 = on, 0 = off
Res = SetKeyboardState(KBState(0))
End Sub





Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel

Última atualização em Qui, 18 de Agosto de 2011 11:54  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje325
mod_vvisit_counterOntem5154
mod_vvisit_counterEsta Semana24985
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês38714
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10461543
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA