AO PRESSIONAR TAB ENVIAR ENTER

USUARIO.EXCLUIDOS 16/12/2006 01:05:09
#190335

O amigo ja fez assim
txtcampo.setfocus

??

GAMISTIK 16/12/2006 11:27:24
#190366

Então cara, mas na verdade o que eu quero é que o TAB tenha efeito de ENTER. O Contrário eu consigo...

SILVIO.GARCIA 16/12/2006 12:46:02
#190373

Select case keycode
case vbkeyreturn
if text1.text <> "" then
text2.setfocus
else
text1.text
endif
end select

GAMISTIK 16/12/2006 14:00:05
#190383

Então, Silvio, eu determino ao meu sistema, que , na text1, se eu der enter (Keyascii = 13) ele vai jogar o valor que está contido na text1 em uma label, ele executa uma transformação no conteudo que será apresentado na label. Só que eu também quero que quando eu pressione a tecla tab ele realize a mesma operação... Eu coloquei keyascii = 9 mas num deu certo... o cursor vai para a proxima text mas ele nao poe o valor da text1 na label. Só ta funcionando com enter... Então, eu queria saber se é possível simular o enter, quando pressiono o tab, somente nesta textbox...

HARRY.POTTER 16/12/2006 16:44:15
#190408 Resposta escolhida

Coloca no início do keypress:

If keyascii = 9 then keyascii = 13

ou, para simular o ENTER:

If keyascii = 9 then
   keyascii = 0
   text1.setfocus
   sendkeys "{ENTER}"
   exit sub
end if