ATIVAR E DESATIVAR CAPS LOCK
Bom dia Srs.
tenho o seguinte código:
For X = 1 To Len(gsUserPWD) [ô] Ciclo em todas as letras da palavra
c = Mid(gsUserPWD, X, 1) [ô] Guarda a informação da letra atual
ascValue = Asc(c) [ô] Retorna o valor inteiro do código ascii de cada letra
[ô] Caso o código pertença a uma letra maiúscula toma determinada atitude
If ascValue >= 65 And ascValue <= 90 Then
result = result & c
Else
result = result & c
End If
Next X
A função percorre toda a senha do usuario e dentro do If sempre que for maiuscula ela tem que ativar capslock e depois desativar , para no final montar a senha com maisuculas e minusculas, alguem teria um jeito correto de fazer isso??
tenho o seguinte código:
For X = 1 To Len(gsUserPWD) [ô] Ciclo em todas as letras da palavra
c = Mid(gsUserPWD, X, 1) [ô] Guarda a informação da letra atual
ascValue = Asc(c) [ô] Retorna o valor inteiro do código ascii de cada letra
[ô] Caso o código pertença a uma letra maiúscula toma determinada atitude
If ascValue >= 65 And ascValue <= 90 Then
result = result & c
Else
result = result & c
End If
Next X
A função percorre toda a senha do usuario e dentro do If sempre que for maiuscula ela tem que ativar capslock e depois desativar , para no final montar a senha com maisuculas e minusculas, alguem teria um jeito correto de fazer isso??
Não vejo a necessidade de se ativar o capslock para isto apenas use as funções Ucase e LCase
exemplo
exemplo
Private Sub Command1_Click()
MsgBox UCase([Ô]toDAs LeTRas MaiUSCulas[Ô])
MsgBox LCase([Ô]toDAs LeTRas mINUscULas[Ô])
End Sub
Então Marcelo-Treze, eu usaria isto, mas essa minha aplicação vai usar um comando externo para digitar essa senha em uma segunda aplicação que não é minha, e nesse comando ele trabalha com o estado do capslock, ou seja tendo Ucase ou Lcase nao faz diferença, na hora ele não reconhece, portanto eu precisaria ativar o caps toda vez que fosse maiscula, acho que da pra entender né?!?!? rsrs
estou trabalhando em cima disso e talvez esteja perto da resposta, mas se tiveres alguma dica agradeço, depois postarei o código aqui se for resolvido.....
valew
estou trabalhando em cima disso e talvez esteja perto da resposta, mas se tiveres alguma dica agradeço, depois postarei o código aqui se for resolvido.....
valew
AÃ está um código que Ativa/Desativa o CapsLok.
Para mais detalhes, Click aqui (Dica da Microsoft)
Para mais detalhes, Click aqui (Dica da Microsoft)
Muito bom, usei a dica do amigo ROBIU, muito obrigado, fubcionou perfeitamente, a quem precisar pode pegar a dica dele,
Valew a todos , abraços
Valew a todos , abraços
Tópico encerrado , respostas não são mais permitidas