Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

Sign in to follow this  
samesdavis

[Resolvido] Criar textbox personalizada ajustada pela TabIndex

Recommended Posts

samesdavis

Eu gostaria da ajuda de vocês para eu criar uma classe de textbox personalizada já ajustada pela tabindex.

Explico, tenho esse código aqui:

   Private Sub Campo2_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Campo2.KeyUp
       Dim KeyCode As Short = e.KeyCode
       Dim Shift As Short = e.KeyData \ &H10000

       If KeyCode = 13 Then
           Campo3.Focus()
       ElseIf KeyCode = System.Windows.Forms.Keys.Right Then
           Campo3.Focus()
       ElseIf KeyCode = System.Windows.Forms.Keys.Down Then
           Campo3.Focus()
       ElseIf KeyCode = System.Windows.Forms.Keys.Left Then
           Campo1.Focus()
       ElseIf KeyCode = System.Windows.Forms.Keys.Up Then
           Campo1.Focus()
       End If
   End Sub

No código acima, eu tenho de fazer isso para cada campo para ajustar o toque da tecla ENTER para que o foco seja movido para o próximo campo ou quando estiver no último campo do forme, ele volte para o primeiro campo.

Só que isso se torna cansativo e corro o risco de errar e ainda se entrar ou sair algum campo, tenho de ajustar tudo novamente. Peguei um trabalho para fazer em que um dos forms tem uns 40 campos.

Como esses dias fiz algo parecido com a ajuda de vocês em relação a mudança de cores ( aquilo me adiantou muito ) , gostaria de saber se tem como fazer o mesmo.

Só que a idéia seria ajustar o Tabindex, e na classe, o 'ME' iria verificar qual é o TabIndex do campo que está posicionado, e nos três primeiros 'Focus' do código de exemplo acima, ele iria somar 1 e no último diminuiria 1.

Edited by thoga31
GeSHi

Share this post


Link to post
Share on other sites
samesdavis

Não foi preciso criar uma classe, na verdade eu estava era reiventando a roda via gambiarra kkkk

resolvi dessa forma:


Imports System.Windows.Forms

Private Sub FrmLogin_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
  Select Case e.KeyCode
     Case Keys.Enter
        SendKeys.Send("{Tab}")
  End Select
End Sub

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.