Cuestión : usar el botón para navegar textboxes

vb.net 2008

What que tengo: el
I tiene 72 textboxes en un form.
textbox0 al down


For del across
8 de textbox71

9 ahora que necesito un botón ir al “derecho”  --->


Problem:el
This está trabajando hasta que consiga “texbox2” entonces al stops



In el acontecimiento de Gotfocus de cada textbox que tengo: el submarino privado privado privado secundario TextBox3_GotFocus (remitente de Sub

del final del
de las manijas TextBox2.GotFocus
MyName del submarino TextBox2_GotFocus (remitente de Sub

del final del
de las manijas TextBox1.GotFocus
MyName del submarino TextBox1_GotFocus (remitente de Sub
del final del
de las manijas TextBox0.GotFocus
MyName del
Private TextBox0_GotFocus (remitente de ByVal como objeto, ByVal e como System.EventArgs) () de ByVal como objeto, ByVal e como System.EventArgs) () de ByVal como objeto, ByVal e como System.EventArgs) () de ByVal como objeto, ByVal e como System.EventArgs) dirige el currentLocation de Sub


Public del final del
de TextBox3.GotFocus
MyName () mientras que el
de MyName de la función de Integer

Public () en el curriculum vitae Next
amortiguan el myPointer como ctlCurrentControl dévil de Integer
como el ctlCurrentControl de TextBox
= myPointer de ActiveControl
= mediados de (ctlCurrentControl.Name, sugerencias de 8)

End Function

Any?
Thanks
fordraiders

 class= del

Respuesta : usar el botón para navegar textboxes

Aquí está un ejemplo de cómo “atar con alambre encima” de los 72 TextBoxes al mismo tratante de acontecimiento en run-time así que usted no tiene que manualmente crear a 72 diversos tratantes en el IDE.

También se incluyen los ejemplos de cómo ejecutar a la izquierda, a la derecha, arriba y abajo de los botones:
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:

Clase pública Form1

    LastTextBox privado como TextBox = nada

    Manijas privadas MyBase.Load del submarino Form1_Load (remitente de ByVal como System.Object, ByVal e como System.EventArgs)
        TB dévil como TextBox
        Ctls déviles () como control
        Para i como número entero = 0 a 71
            ctls = Me.Controls.Find (“TextBox” y i, verdad)
            Si ctls. La longitud > 0 los ctls de AndAlso TypeOf (0) entonces es TextBox
                TB = C (ctls (0), TextBox)
                AddHandler tb.GotFocus, tb_GotFocus de AddressOf
            Terminar si
        Después
    Submarino del extremo

    tb_GotFocus secundario privado (remitente de ByVal como objeto, ByVal e como System.EventArgs)
        TB dévil como el TextBox = C (remitente, TextBox)
        LastTextBox = TB
    Submarino del extremo

    El btnRight_Click secundario privado (remitente de ByVal como System.Object, ByVal e como System.EventArgs) dirige btnRight.Click
        Si no IsNothing (LastTextBox) entonces
            Amortiguar i como número entero
            Amortiguar el strInt como la secuencia = LastTextBox.Name.Remove (0, “TextBox”. Longitud)
            Si Integer.TryParse (strInt, i) entonces
                Si ((i + 1) MOD 9) <> 0 entonces
                    i = i + 1
                    Ctls déviles () como control = Me.Controls.Find (“TextBox” y i, verdad)
                    Si ctls. La longitud > 0 los ctls de AndAlso TypeOf (0) entonces es TextBox
                        TB dévil como el TextBox = C (ctls (0), TextBox)
                        TB. Foco ()
                    Terminar si
                
                    LastTextBox.Focus ()
                Terminar si
            Terminar si
        Terminar si
    Terminar el submarino

    El btnLeft_Click secundario privado (remitente de ByVal como System.Object, ByVal e como System.EventArgs) dirige btnLeft.Click
        Si no IsNothing (LastTextBox) entonces
            Amortiguar i como número entero
            Amortiguar el strInt como la secuencia = LastTextBox.Name.Remove (0, “TextBox”. Longitud)
            Si Integer.TryParse (strInt, i) entonces
                Si (MOD de i 9) <> 0 entonces
                    i = i - 1
                    Ctls déviles () como control = Me.Controls.Find (“TextBox” y i, verdad)
                    Si ctls. La longitud > 0 los ctls de AndAlso TypeOf (0) entonces es TextBox
                        TB dévil como el TextBox = C (ctls (0), TextBox)
                        TB. Foco ()
                    Terminar si
                
                    LastTextBox.Focus ()
                Terminar si
            Terminar si
        Terminar si
    Terminar el submarino

    El btnUp_Click secundario privado (remitente de ByVal como System.Object, ByVal e como System.EventArgs) dirige btnUp.Click
        Si no IsNothing (LastTextBox) entonces
            Amortiguar i como número entero
            Amortiguar el strInt como la secuencia = LastTextBox.Name.Remove (0, “TextBox”. Longitud)
            Si Integer.TryParse (strInt, i) entonces
                Si i > 8 entonces
                    i = i - 9
                    Ctls déviles () como control = Me.Controls.Find (“TextBox” y i, verdad)
                    Si ctls. La longitud > 0 los ctls de AndAlso TypeOf (0) entonces es TextBox
                        TB dévil como el TextBox = C (ctls (0), TextBox)
                        TB. Foco ()
                    Terminar si
                
                    LastTextBox.Focus ()
                Terminar si
            Terminar si
        Terminar si
    Terminar el submarino

    El btnDown_Click secundario privado (remitente de ByVal como System.Object, ByVal e como System.EventArgs) dirige btnDown.Click
        Si no IsNothing (LastTextBox) entonces
            Amortiguar i como número entero
            Amortiguar el strInt como la secuencia = LastTextBox.Name.Remove (0, “TextBox”. Longitud)
            Si Integer.TryParse (strInt, i) entonces
                Si los ctls < 63="" Then="" i="i"> de i 0 AndAlso TypeOf (0) entonces son TextBox
                        TB dévil como el TextBox = C (ctls (0), TextBox)
                        TB. Foco ()
                    Terminar si
                
                    LastTextBox.Focus ()
                Terminar si
            Terminar si
        Terminar si
    Terminar el submarino

Terminar la clase
Otras soluciones  
 
programming4us programming4us