Skip Navigation Links
Novas Tecnologias
Ferramentas Adicionais
Ferramentas Adicionais


Dica No :
151
Assunto : Visual Basic
Titulo: Como ativar o Caps Lock

Gostou do texto ? Vote e dê sua opinião! Pontuação atual :

Translate this page now :






Adicione aos Favoritos!
BlogBlogs Rec6 Linkk Ueba Technorati Delicious DiggIt! StumbleUpon


Nesta dica iremos aprender como manipular com a tecla 'Caps Lock' via API.


Crie um módulo e digite o seguinte código:

Public Const VK_CAPITAL = &H14
Public Type KeyboardBytes
kbByte(0 To 255) As Byte
End Type
Public kbArray As KeyboardBytes
Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Long
Public Declare Function GetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long
Public Declare Function SetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long

Sub main()
Form1.Show
End Sub

Não esqueça de redirecionar a propriedade Startup Object para a Sub Main().
Crie um formulário e nele os seguintes objectos:

Botões: cmdToggle, cmdTurnOn e cmdTurnOff;
Label: Label1;
TextBox: Text1.

Insira o seguinte código.

Private Function CapsLock() As Integer
CapsLock = GetKeyState(VK_CAPITAL) And 1 = 1
End Function

Private Sub Form_Load()
If CapsLock() = 1 Then Label1 = "On" Else Label1 = "Off"
End Sub

Private Sub cmdToggle_Click()
GetKeyboardState kbArray
kbArray.kbByte(VK_CAPITAL) = IIf(kbArray.kbByte(VK_CAPITAL) = 1, 0, 1)

SetKeyboardState kbArray
Label1 = IIf(CapsLock() = 1, "On", "Off")
End Sub

Private Sub cmdTurnOn_Click()
GetKeyboardState kbArray
kbArray.kbByte(VK_CAPITAL) = 1
SetKeyboardState kbArray
Label1 = IIf(CapsLock() = 1, "On", "Off")
End Sub

Private Sub cmdTurnOff_Click()
GetKeyboardState kbArray
kbArray.kbByte(VK_CAPITAL) = 0
SetKeyboardState kbArray
Label1 = IIf(CapsLock() = 1, "On", "Off")
End Sub

A função GetKeyState foi utilizada para capturar o status de apenas uma tecla, enquanto que a função Getkeyboardstate foi utilizada para pegar o status de todo o teclado.
O botão 'cmdToggle' inverte a indicação do Caps Lock.

Após digitar o código utilize a caixa de texto para testar o funcionamento.

Nome :
E-mail:
Comentarios :
 
 
Os Últimos Comentários
data: 11/27/2017 6:09:00 PM
nome: sCaEzaXuCVkCihUJQ
email: jimosanil0c@hotmail.com
comentário:
h6jbS9 http://www.LnAJ7K8QSpfMO2wQ8gO.com

data: 5/18/2017 9:47:00 PM
nome: EXfOkzLMQcbquJ
email: jimos45812rt1@hotmail.com
comentário:
R0G7jt http://www.LnAJ7K8QSpkiStk3sLL0hQP6MO2wQ8gO.com

data: 1/31/2017 1:42:00 PM
nome: zhOgXRvfTQEi
email: derby451@hotmail.com
comentário:
bcRqtU http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com

data: 1/29/2017 11:45:00 AM
nome: kVkguDKzPxWNzA
email: derby451@hotmail.com
comentário:
2MNvX0 http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com

data: 1/29/2017 11:40:00 AM
nome: bcgeEwQfUdQJT
email: jogcbfn@hotmail.com
comentário:
B3A32B http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com

 1  
Dicas
Dica do Dia
Receba Dicas Por Email
E-mail :  
 


 (help)
Aceito receber informativos do devASPNet, informações de eventos e treinamentos

Veja Quais Informativos Você Receberá

Pesquisar Dicas
Pesquisar Artigos, Dicas e Noticias

Banco de Dados
Algumas Entrevistas
Links Importantes

Búfalo Informática, Treinamento e Consultoria
R. Alvaro Alvim, 37/920 Centro - Cinelândia - Rio de Janeiro Cep: 20031-010
Tel : (21) 2262-1368 (21) 9240-5134 E-mail : Contato@bufaloinfo.com.br