Tabulação automática

[frata]

Numa determinada aplicação, limitei o número de dígitos do text1 como três, usando a propriedade

Maxlength, porém gostartia que após ser digitado o terceiro dígito fosse automáticamente para o

text2. Alguém sabe me dizer como configurar essa propriedade. Antigamente no VBA eu acho que

tinha algo como AutoTab...mas no VB 6.0 que eu uso, não encontrei essa propriedade :rolleyes: . Obrigado.

Frata

[Patrick Gehre]

Continua sendo a propriedade autotab, você tem que definir um maxlenght e deixar o autotab como true.

Danke

[kuroi]

não, no vb6 não tem mesmo a propriedade AutoTab. a não ser q você inclua o textbox do vba entre os componentes.

no visual basic, você faria por keydown:

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If Len(Text1.Text) = Text1.MaxLength Then Text2.SetFocus
End Sub[/code]
antes mude a propriedade KeyPreview do form para true.

[Patrick Gehre]

Interessante...

[Matheus-vb6]

Fiz um teste aki usando seu codigo[Kuroi] (a proposito esqueceu o end if :D) e não precisei mudar nada do keypreview, apenas utilize o codigo:

Private Sub Text1_Change()
If Len(Text1.Text) = Text1.MaxLength Then
Text2.SetFocus
End If
End Sub

Mas também funcionou dessa forma!

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If Len(Text1.Text) = Text1.MaxLength Then
Text2.SetFocus
End If
End Sub

Abraços, duvida poste!

[kuroi]

verdade, acho q o change seria ate melhor. se você fizer no keydown, ele deve mudar o foco se você clicar na flecha pra movimentar o cursor por exemplo, e ai você teria q usar algum codigo a mais pra impedir isso.

acho q você tb poderia usar um SendKeys "{TAB}" pra mudar o foco tb, assim não precisa ficar escrevendo o nome do proximo controle.

a proposito esqueceu o end if

se o if vai ter uma instrucao so, você pode fazer o if todo em uma linha e não precisa de end if, testa la o codigo q eu postei exatamente como ta.

[Matheus-vb6]

aaa não sabia disso :D

quanto ao tab você pode configurar os tabindex

text1.tabindex=1

text2.tabindex=2

Kuroi, sabe dizer qual o ascii da tecla tab?

[kuroi]

é 9.

[frata]

Brigaduuuuuuuuuuuuuuu....vou experimentar e te falo...

Valeu!!!!!!

[Matheus-vb6]

Valeu Kuroi!

Boa sorte Frata

[frata]

Oi, Matheus, funcionou perfeitamente com este código:....brigaduuuuuuuuuuuuu!!!

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

If Len(Text1.Text) = Text1.MaxLength Then

Text2.SetFocus

End If

End Sub

ah...uma coisinha...depois tenter transferir o foco (No mesmo esquema) para o command1, mas não funcionou...

Kuroi, brigadão também...valeu!!!!!!!!!!!!!

:P Frata

[Matheus-vb6]

Para dar foco no botão utilize esse codigo na segunda caixa de texto:

Private Sub Text2_Change()
If Len(Text2.Text) = Text2.MaxLength Then
Command1.SetFocus
End If
End Sub

Testa ai, aqui deu certo :D

Boa sorte!

Editado Julho 31, 2010 por Matheus-vb6