Home Excel - Dicas Microsoft Excel VBA Excel VBA - API Excel VBA - apis ativa ou desativa teclas numlook e capslook

Excel VBA - apis ativa ou desativa teclas numlook e capslook

E-mail Imprimir PDF

Saberexcel - o site das macros
Essas declarações API do Aplicativo Microsoft Excel VBA, ativa ou desativa as teclas NUMLOOK E E CAPSLOOK.



VBA Excel - Ativa NUMLOOK e CAPSLOOK API

VBA Excel -  estas declaração e a macro 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 o Aplicativo Microsoft Excel VBA com Saberexcel - o site das macros




Última atualização em Dom, 22 de Julho de 2012 20:27  

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_counterHoje855
mod_vvisit_counterOntem5104
mod_vvisit_counterEsta Semana30619
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês44348
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10467177
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