COMO DESATIVAR A TECLA CAPSLOCK?
Olá amigos...Tem como desativar a tecla CAPSLOCK?
Veja se isto ajuda...
Coloque num Módulo:
E este no seu form:
Espero que ajude
Abraço
T+
Coloque num Módulo:
Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As IntegerE este no seu form:
Private Sub Form_Load()
Tmp = GetKeyState(vbKeyCapital)
If Tmp = 1 Then
MsgBox "Caps Lock Ligado"
Else
MsgBox "Caps Lock Desligado"
End If
End SubEspero que ajude
Abraço
T+
Às vezes é melhor colocar o problema do que a solução pensada.
Quando você põe o problema, dá chance de surgirem soluções que você jamais pensou. Quando põe a solução pensada, não se sabe o que você quer resolver e a alternativa expressada pode não ser a melhor.
Terminado o discurso[s41], vamos ao que interessa:
Desativando a tecla você vai impedir que outros aplicativos em paralelo possam usá-la - vai que o usuário precise enviar um e-mail ou editar um texto no WORD (ele terá problemas com a tecla desabilitada).
Se você quer manipular a tecla é por que o seu sistema requer a segurança de letras minúsculas ou maiúsculas. Se usar UCASE ou LCASE você resolve o seu problema sem ocasionar "danos colaterais".
Quando você põe o problema, dá chance de surgirem soluções que você jamais pensou. Quando põe a solução pensada, não se sabe o que você quer resolver e a alternativa expressada pode não ser a melhor.
Terminado o discurso[s41], vamos ao que interessa:
Desativando a tecla você vai impedir que outros aplicativos em paralelo possam usá-la - vai que o usuário precise enviar um e-mail ou editar um texto no WORD (ele terá problemas com a tecla desabilitada).
Se você quer manipular a tecla é por que o seu sistema requer a segurança de letras minúsculas ou maiúsculas. Se usar UCASE ou LCASE você resolve o seu problema sem ocasionar "danos colaterais".
Tópico encerrado , respostas não são mais permitidas