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

PROMOÇÃO DIDÁTICOS SABEREXCEL



Adquira já o Acesso Imediato
à Area de Membros

Compra Grantida --- Entrega Imediata

Aprenda Excel VBA com Simplicidade de 
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.

'-------------------------------------'
Entrega Imediata:
+  500 Video Aulas MS Excel VBA
+  35.000 Planilhas Excel e VBA
+  Coleção 25.000 Macros MS Excel VBA
+  141 Planilhas Instruções Loops
+  341 Planilhas WorksheetFunctions(VBA)
+    04 Módulos Como Fazer Excel VBA
+  Curso Completo MS Excel VBA
+  Planilhas Inteligentes


Pesquisa Google SaberExcel

Publicidade Google

<script type="text/javascript"><!--

google_ad_client = "ca-pub-2317234650173689";

/* retangulo 336 x 280 */

google_ad_slot = "0315083363";

google_ad_width = 336;

google_ad_height = 280;

//-->

</script>

<script type="text/javascript"

src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

</script>

Publicidade

RSFirewallProtected


Google Associados

Depoimentos

Simplesmente fantástico todo arquivo que vc me mandou.....rapaiz, é muito bom. Já usei vários modelos de códigos para situações que ficaria me matando..... Mal posso esperar o dvd 14.000 planilhas exemplos Muito obrigado. Deus lhe dê muita saude....

Percival( Analista de custos)
Analista de Custos
03 August 2011
Muito obrigado. Vou fazer muita propaganda do seu trabalho, muito bom, tudo que conseguir eu te encaminho.Se tiver mais alguns trabalhos no sentido de facilitar o aprendizado estarei a disposição para estar adiquirindo. Fiquei muito feliz com o material recebido ate agora. Valeu, muito obrigado...

Eder - Gerência Orçamento de Gastos
Curitiba-PR
20 April 2011

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