[Resolvido]Trocar letras por numeros ao digitar em caixa de texto

Boa tarde a todos!

Necessito de uma ajuda para uma questão envolvendo letras e números.

Eu tenho um formulário onde existem duas caixa de texto:

"Text" e "Números"



O que eu preciso é que, ao digitar um texto, após cada letra digitada no campo "Texto" apareça simultaneamente no campo "Números" o valor numérico de cada letra digitada.
Eu consegui fazer isso utilizando o seguinte código:



Funcionou até que bem:


Porém eu preciso que o contrário também funcione, ou seja quando eu deletar uma letra da caixa "Texto" o valor correspondente da caixa "Números" também seja deletado.
e isso eu não estou conseguindo fazer.

Então pediria a ajuda de todos de como eu poderia fazer isso de acordo com o código que usei, ou se há alguma forma mais elegante e funcional de se fazer o que preciso.

desde já agradeço a pela ajuda que puderem me dar.

Gerson.

Geremias, boa-tarde!

Batendo o olho no print da pra ver que seu último IF que seria justamente a tecla backspace está idêntico ao penúltimo IF então, aparentemente está ai a mudança a ser feita.

O que você quer é que o backspace elimine a última letra que foi digitada. Veja, até a nona letra é simples pq ele deve pegar a string que está na caixa de números e eliminar o último. Porém você tem uma décima letra que é a J o que dificulta a lógica.

Para testar sem digitar o J tente fazer apenas a alteração no último IF da seguinte forma:

txtNum = MID(txtNum.value, 1, LEN(txtNum.value)-1)

Se funcionar é um caminho possível, porém, como mencionei, o J muda a regra pq deveria voltar dois dígitos.

Vc menciona se teria uma forma mais elegante. Não sei se é mais elegante, mas eu utilizaria ao invés dos IF/ENDIF para cada checagem p SELECT CASE.

Código:

Private Sub TxtNome_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case Is = 65
            TxtNum = TxtNum & 1
        Case Is = 66
            TxtNum = TxtNum & 2
        Case Is = 67
            TxtNum = TxtNum & 3
        Case Is = 68
            TxtNum = TxtNum & 4
        Case Is = 69
            TxtNum = TxtNum & 5
        Case Is = 70
            TxtNum = TxtNum & 6
        Case Is = 71
            TxtNum = TxtNum & 7
        Case Is = 72
            TxtNum = TxtNum & 8
        Case Is = 73
            TxtNum = TxtNum & 9
        Case Is = 74
            TxtNum = TxtNum & 10
        Case Is = 8 'vbKeyBack
            If IsNull(TxtNum) Or TxtNum = "" Then Exit Sub
            TxtNum = Left([TxtNum], Len([TxtNum]) - 1)
            Case Else
                TxtNum = 0
    End Select
End Sub

Quero agradecer aos amigos abreuluiston e JPaulo pela ajuda. funcionou beleza, pelo menos com relação aos dígitos simples, mas ja medeu uma boa base para continuar a pesquisar.

Valeu!

Obrigado pelo retorno o forum agradece.