Senhores,

 

Tenho 3 textbox e para passar de um para o outro não gostaria de usar o ENTER e sim que pulasse automaticamente para o outro. Claro que existe uma regra para a quantidade de dígitos digitados.

Exemplo: Na text1 digito 456 (três dígitos) automaticamente pula para a text2, e nesta ao digitar 789 pula para a text3 e assim sucessivamente sem precisar usar o ENTER.

 

Alguém tem alguma luz?

No Evento change de cada text é só verificar o tamanho do mesmo e forçar o comando tab:   

if len(txtcampo1.text) = 3 then

   Call SendKeys("{TAB}", True)

endif

Ok, funcionou.

Mas fiz um programa com 150 textbox, tem como fazer isso sem ter que criar esse código para cada um?

 

 

Aí, vc pode criar um Array de txt.

Supondo que o no me do campo txt fosse txtDescricao, no evento change voce mudaria para:

J.Carlos

 

não entendi muito bem.

Digamos assim, tenho 3 textbox (txtNome, txtCidade, txtEstado)

Como ficarria o array neste caso?

 

 

 

Na realidade vc vai criar um textbox chamado por exemplo de txtDescricao.

Seleciona ele e copie. clica no form com btn direito e cole. Ele vai pedir pra criar um arrayIndex, clica sim, Aí ele torna este campo um array e agora está com dois itens(índices). À medida que vc vai colando, ele vai criando mais um item text cada um com um índice que vai de zero a n índices que vc criar. Neste caso, o seu txtDescricao(0).text terá o Nome, txtDescricao(1).text terá a Cidade, txtDescricao(2).text terá o Estado.

No Evento Change do campo ficará ssim ao vc criá-lo:

Private Sub txtDescricao_Change(Index As Integer)

   if len(txtDescricao(index).text) = txtDescricao(index).Maxlength then

      Call SendKeys("{TAB}", True)

   endif

End Sub

Ou seja, em qualquer um que vc alterar ele saberá quem é através do valor que ele pasa no Index. Se você digitou algo no campo texto equivalente à Cidade, ele passará pro change(txtDescricao_Change) o índice=1.

Espero ter esclarecido.