TECLADO ALFABETICO

EVERSON.PASETTO 17/09/2006 10:37:10
#171964
Eu tenho duas caixas de texto, e gostaria de fazer algo assim,

Na primeira caixa eu vou digitando Q W E R

E na segunda vai aparecendo as letras A B C D, entende?? Quero fazer o teclado se comportar como se as letras estivessem em ordem alfabetica.

Obrigado e até +
USUARIO.EXCLUIDOS 17/09/2006 11:27:07
#171968
Everson,

Essa é fácil, basta vc colocar no evento keypress da primeira caixa de texto a conversão do caracter pelo que vc quer. O unico trabalho é que como as letras não seguem um padrao sequencial, vc tera que fazer uma instrução select convertendo as letras digitadas para a que vc quer.
USUARIO.EXCLUIDOS 17/09/2006 12:00:00
#171973
Não entendi o pq disso, mas tente:

Private Sub Text1_Change()
Dim i As Integer, mChar As Long
'Põe o primeiro caracter como o Asc da letra "A"
mChar = Asc("A")
'Limpa o Text2
Text2 = ""
'Dá um loop pelo nr de letras do Text1
For i = 1 To Len(Text1)
  'Adiciona ao Text2 ele próprio mais o caracter atual
  Text2 = Text2 & Chr(mChar)
  'Incrementa o caracter atual, e se for o "Z" volta ao "A"
  If mChar = Asc("Z") Then mChar = Asc("A") _
  Else mChar = mChar + 1
Next i
'Coloca o SelStart do Text2 igual ao Text1, para que fiquem na mesma posição
Text2.SelStart = Text1.SelStart
End Sub



é isso, qualquer dúvida poste...flw
EVERSON.PASETTO 19/09/2006 08:55:48
#172317
Não funcionou, na caixa de baixo ela fica escrevendo as letras por ordem.

Deveria ser assim, quando eu dititar Q na caixa 1 na caixa 2 ela escreve A.

E se eu digitar a letra E ela escreva C, e não B.

Bem vou explicar melhor...

Uma vez vi que existe um tipo de teclado diferente, que as teclas em vez de ser como o nosso teclado, elas são colocadas tudo em ordem alfabetica.


De uma olhada neste site do terra.

http://tecnologia.terra.com.br/interna/0,,OI1085852-EI4801,00.html


Queria simular este teclado, entende

Obrigado e até +
USUARIO.EXCLUIDOS 19/09/2006 10:20:34
#172338
Cara... entendi o que vc quer fazer...

olha, eu acho que vc terá de criar dois Arrays e comparar.

Tipo assim:

Dim a As Variant
Dim b As Variant
[c]Private Sub Form_Load()

a = Array("a", "b", "c", "d")
b = Array("q", "w", "e", "r")

End Sub


Private Sub Text1_KeyPress(KeyAscii As Integer)
    For I = 0 To UBound(a)
        If b(I) = Chr(KeyAscii) Then
            Text2.Text = Text2.Text & a(I)
        End If
    Next
End Sub



ai fica só vc completar as letras lá em cima, nem precisa mexer no código, só colocar as letras no array.


ai esta minha tese..rsrs
qqr coisa só postar.
[/c]
Tópico encerrado , respostas não são mais permitidas
Voltar