CHR E KEYCODE

USUARIO.EXCLUIDOS 25/05/2007 09:01:58
#218212
eu tenho uma aplicação que eu devo digitar um conteúdo em um controle mas ele deve escrever em outro controle. Só que precisa ser no keydown, então eu fiz assim:

Select Case KeyCode
Case vbKeyA To vbKeyZ, vbKey0 To vbKey9
.Text = .Text & Chr(KeyCode)
Case vbKeyNumpad0 To vbKeyNumpad9
.Text = .Text & Chr(KeyCode - 48)
End Select


até aqui está funcionando bem, só que eu também tenho que considerar o caracter Ç (keycode 186). tentei colocar nos dois tratamentos que tem ali, mas nos dois ele não passou Ç para o outro controle, e sim passou um caracter inválido. o que eu faço?
USUARIO.EXCLUIDOS 25/05/2007 09:15:13
#218216
Resposta escolhida
Eu fiz isso aqui e funcionou:
   Case 186
.Text = .Text & Chr(KeyCode + 13)



Tópico encerrado , respostas não são mais permitidas