Home Excel - Dicas Microsoft Excel VBA Excel VBA - Teclas excel vba ativa o NUM LOOK and CAPSLOCK API

excel vba ativa o NUM LOOK and CAPSLOCK API

E-mail Imprimir PDF

 Saberexcel - o site de quem precisa aprender macros microsoft excel vba
Estas declarações e a macro do aplicativo microsoft excel vba ativa o NUM LOOK and CAPSLOCK  API

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 planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.

 

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_counterHoje350
mod_vvisit_counterOntem5154
mod_vvisit_counterEsta Semana25010
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês38739
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10461568
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