Pergunta : using a tecla para navegar textboxes

vb.net 2008

What que eu tenho: o
I tem 72 textboxes em um form.
textbox0 ao down


For do across
8 de textbox71

9 agora que eu preciso uma tecla de ir ao “direita”  --->


Problem:o
This está trabalhando até que eu começ “texbox2” então ao stops



In o evento de Gotfocus de cada textbox que eu tenho: o submarino confidencial confidencial confidencial secundário TextBox3_GotFocus de Sub

do fim do
dos punhos TextBox2.GotFocus
MyName do submarino TextBox2_GotFocus de Sub

do fim do
dos punhos TextBox1.GotFocus
MyName do submarino TextBox1_GotFocus de Sub
do fim do
dos punhos TextBox0.GotFocus
MyName do
Private TextBox0_GotFocus (remetente de ByVal como o objeto, ByVal e como System.EventArgs) () (remetente de ByVal como o objeto, ByVal e como System.EventArgs) () (remetente de ByVal como o objeto, ByVal e como System.EventArgs) () (remetente de ByVal como o objeto, ByVal e como System.EventArgs) segura o currentLocation de Sub


Public do fim do
de TextBox3.GotFocus
MyName () enquanto o
de MyName da função de Integer

Public () no resumo Next
escurecem o myPointer como o ctlCurrentControl não ofuscante de Integer
como o ctlCurrentControl de TextBox
= o myPointer de ActiveControl
= (ctlCurrentControl.Name, 8) sugestões meados de do

End Function

Any?
Thanks
fordraiders

 class= do

Resposta : using a tecla para navegar textboxes

Está aqui um exemplo de como “prender acima” de TODOS OS 72 TextBoxes ao mesmo alimentador de evento em run-time assim que você não tem que manualmente criar 72 alimentadores diferentes no IDE.

Igualmente são incluídos os exemplos de como executar à esquerda, para a direita, acima de e abotoam-se para baixo:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:

Classe pública Form1

    LastTextBox confidencial como o TextBox = nada

    Punhos confidenciais MyBase.Load do submarino Form1_Load (remetente de ByVal como System.Object, ByVal e como System.EventArgs)
        TB não ofuscante como o TextBox
        Ctls não ofuscantes () como o controle
        Para i como o inteiro = 0 a 71
            ctls = Me.Controls.Find (“TextBox” & i, verdadeiro)
            Se ctls. O comprimento > 0 os ctls de AndAlso TypeOf (0) é TextBox então
                TB = C (ctls (0), TextBox)
                AddHandler tb.GotFocus, tb_GotFocus de AddressOf
            Terminar se
        Em seguida
    Submarino da extremidade

    tb_GotFocus secundário confidencial (remetente de ByVal como o objeto, ByVal e como System.EventArgs)
        TB não ofuscante como o TextBox = o C (remetente, TextBox)
        LastTextBox = TB
    Submarino da extremidade

    O btnRight_Click secundário confidencial (remetente de ByVal como System.Object, ByVal e como System.EventArgs) segura btnRight.Click
        Se não IsNothing (LastTextBox) então
            Escurecer i como o inteiro
            Escurecer o strInt como a corda = o LastTextBox.Name.Remove (0, “TextBox”. Comprimento)
            Se Integer.TryParse (strInt, i) então
                Se ((i + 1) modificação 9) <> 0 então
                    i = i + 1
                    Ctls não ofuscantes () como o controle = o Me.Controls.Find (“TextBox” & o i, verdadeiro)
                    Se ctls. O comprimento > 0 os ctls de AndAlso TypeOf (0) é TextBox então
                        TB não ofuscante como o TextBox = o C (ctls (0), TextBox)
                        TB. Foco ()
                    Terminar se
                Mais
                    LastTextBox.Focus ()
                Terminar se
            Terminar se
        Terminar se
    Terminar o submarino

    O btnLeft_Click secundário confidencial (remetente de ByVal como System.Object, ByVal e como System.EventArgs) segura btnLeft.Click
        Se não IsNothing (LastTextBox) então
            Escurecer i como o inteiro
            Escurecer o strInt como a corda = o LastTextBox.Name.Remove (0, “TextBox”. Comprimento)
            Se Integer.TryParse (strInt, i) então
                Se (modificação 9 de i) <> 0 então
                    i = i - 1
                    Ctls não ofuscantes () como o controle = o Me.Controls.Find (“TextBox” & o i, verdadeiro)
                    Se ctls. O comprimento > 0 os ctls de AndAlso TypeOf (0) é TextBox então
                        TB não ofuscante como o TextBox = o C (ctls (0), TextBox)
                        TB. Foco ()
                    Terminar se
                Mais
                    LastTextBox.Focus ()
                Terminar se
            Terminar se
        Terminar se
    Terminar o submarino

    O btnUp_Click secundário confidencial (remetente de ByVal como System.Object, ByVal e como System.EventArgs) segura btnUp.Click
        Se não IsNothing (LastTextBox) então
            Escurecer i como o inteiro
            Escurecer o strInt como a corda = o LastTextBox.Name.Remove (0, “TextBox”. Comprimento)
            Se Integer.TryParse (strInt, i) então
                Se i > 8 então
                    i = i - 9
                    Ctls não ofuscantes () como o controle = o Me.Controls.Find (“TextBox” & o i, verdadeiro)
                    Se ctls. O comprimento > 0 os ctls de AndAlso TypeOf (0) é TextBox então
                        TB não ofuscante como o TextBox = o C (ctls (0), TextBox)
                        TB. Foco ()
                    Terminar se
                Mais
                    LastTextBox.Focus ()
                Terminar se
            Terminar se
        Terminar se
    Terminar o submarino

    O btnDown_Click secundário confidencial (remetente de ByVal como System.Object, ByVal e como System.EventArgs) segura btnDown.Click
        Se não IsNothing (LastTextBox) então
            Escurecer i como o inteiro
            Escurecer o strInt como a corda = o LastTextBox.Name.Remove (0, “TextBox”. Comprimento)
            Se Integer.TryParse (strInt, i) então
                Se os ctls < 63="" Then="" i="i"> de i 0 AndAlso TypeOf (0) são TextBox então
                        TB não ofuscante como o TextBox = o C (ctls (0), TextBox)
                        TB. Foco ()
                    Terminar se
                Mais
                    LastTextBox.Focus ()
                Terminar se
            Terminar se
        Terminar se
    Terminar o submarino

Terminar a classe
Outras soluções  
 
programming4us programming4us