Fråga : using knäppas för att navigera textboxes

vb.net 2008

What som jag har:
I har 72 textboxes på en form.
textbox0 till down


For för across
8 för textbox71

9, nu som jag behöver en knäppas att gå till ”rätt”,  --->


Problem:
This är funktionsduglig, tills jag får till ”texbox2” därefter stops


In den Gotfocus händelsen av varje textbox som jag har:
för handtag TextBox0.GotFocus
MyName för
Private underTextBox0_GotFocus (den ByVal avsändaren som anmärker, ByVal e som System.EventArgs) () avslutar handtag för den Sub
privata suben TextBox1_GotFocus (den ByVal avsändaren som anmärker, ByVal e som System.EventArgs),
för TextBox1.GotFocus
MyName som () avslutar handtag för den Sub

privata suben TextBox2_GotFocus (den ByVal avsändaren som anmärker, ByVal e som System.EventArgs),
för TextBox2.GotFocus
MyName () avslutar handtag för den Sub

privata suben TextBox3_GotFocus (den ByVal avsändaren som anmärker, ByVal e som System.EventArgs),
för TextBox3.GotFocus
MyName () avslutar den Sub


Public currentLocationen, som Integer

Public fungerar MyName ()
på felmeritförteckningen Next
som Integer
den dunkla ctlCurrentControlen som den TextBox
ctlCurrentControlen = ActiveControl
myPointer = mitt- (ctlCurrentControl.Name, 8) förslag för

End Function

Any?
Thanks
fordraiders

 " klar "

Svar : using knäppas för att navigera textboxes

Är här ett exempel av hur ”binder upp” ALLA 72 textBoxesna till den samma händelseförlagehanteraren på run-time, så du måste inte manuellt att skapa 72 olika förlagehanterare i IDEN.

Också inklusive är exempel av hur man genomför lämnat, rätten, knäppas upp och ner:
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:

Allmänhet klassificerar Form1

    Privata LastTextBox som TextBox = ingenting

    Den privata suben Form1_Load (den ByVal avsändaren som System.Object, ByVal e som System.EventArgs) behandlar MyBase.Load
        Dunkel tb som TextBox
        Dunkla ctls () som kontrollerar
        För I som heltal = 0 till 71
            ctls = Me.Controls.Find (”TextBox” & I som är riktigt)
            Om ctls. Längden > 0 AndAlso TypeOf ctls (0) är textBoxen därefter
                tb = CType (ctls (0), textBoxen)
                AddHandler tb.GotFocus, AddressOf tb_GotFocus
            Avsluta om
        Därefter
    Avsluta suben

    Privat undertb_GotFocus (den ByVal avsändaren som anmärker, ByVal e som System.EventArgs)
        Dunkel tb som textBoxen = cTypen (avsändare, TextBox)
        LastTextBox = tb
    Avsluta suben

    Privat underbtnRight_Click (den ByVal avsändaren som System.Object, ByVal e som System.EventArgs) behandlar btnRight.Click
        Om inte IsNothing (LastTextBox) därefter
            Dunkelt I som heltal
            Dunkel strInt som stränger = LastTextBox.Name.Remove (0, ”textBoxen”. Längd)
            Om Integer.TryParse (strInt, I) därefter
                Om ((I + 1) ändring 9) <> 0 därefter
                    i = I + 1
                    Dunkla ctls () som kontrollerar = Me.Controls.Find (”TextBox” & I som är riktigt)
                    Om ctls. Längden > 0 AndAlso TypeOf ctls (0) är textBoxen därefter
                        Dunkel tb som textBoxen = cTypen (ctls (0), textBoxen)
                        tb. Fokusera ()
                    Avsluta om
                Annars
                    LastTextBox.Focus ()
                Avsluta om
            Avsluta om
        Avsluta om
    Avsluta suben

    Privat underbtnLeft_Click (den ByVal avsändaren som System.Object, ByVal e som System.EventArgs) behandlar btnLeft.Click
        Om inte IsNothing (LastTextBox) därefter
            Dunkelt I som heltal
            Dunkel strInt som stränger = LastTextBox.Name.Remove (0, ”textBoxen”. Längd)
            Om Integer.TryParse (strInt, I) därefter
                Om (I-ändring 9) <> 0 därefter
                    i = I - 1
                    Dunkla ctls () som kontrollerar = Me.Controls.Find (”TextBox” & I som är riktigt)
                    Om ctls. Längden > 0 AndAlso TypeOf ctls (0) är textBoxen därefter
                        Dunkel tb som textBoxen = cTypen (ctls (0), textBoxen)
                        tb. Fokusera ()
                    Avsluta om
                Annars
                    LastTextBox.Focus ()
                Avsluta om
            Avsluta om
        Avsluta om
    Avsluta suben

    Privat underbtnUp_Click (den ByVal avsändaren som System.Object, ByVal e som System.EventArgs) behandlar btnUp.Click
        Om inte IsNothing (LastTextBox) därefter
            Dunkelt I som heltal
            Dunkel strInt som stränger = LastTextBox.Name.Remove (0, ”textBoxen”. Längd)
            Om Integer.TryParse (strInt, I) därefter
                Om I > 8 därefter
                    i = I - 9
                    Dunkla ctls () som kontrollerar = Me.Controls.Find (”TextBox” & I som är riktigt)
                    Om ctls. Längden > 0 AndAlso TypeOf ctls (0) är textBoxen därefter
                        Dunkel tb som textBoxen = cTypen (ctls (0), textBoxen)
                        tb. Fokusera ()
                    Avsluta om
                Annars
                    LastTextBox.Focus ()
                Avsluta om
            Avsluta om
        Avsluta om
    Avsluta suben

    Privat underbtnDown_Click (den ByVal avsändaren som System.Object, ByVal e som System.EventArgs) behandlar btnDown.Click
        Om inte IsNothing (LastTextBox) därefter
            Dunkelt I som heltal
            Dunkel strInt som stränger = LastTextBox.Name.Remove (0, ”textBoxen”. Längd)
            Om Integer.TryParse (strInt, I) därefter
                Om ctls < 63="" Then="" i="i"> för I 0 AndAlso TypeOf (0) är textBoxen därefter
                        Dunkel tb som textBoxen = cTypen (ctls (0), textBoxen)
                        tb. Fokusera ()
                    Avsluta om
                Annars
                    LastTextBox.Focus ()
                Avsluta om
            Avsluta om
        Avsluta om
    Avsluta suben

Avsluta klassificerar
Andra lösningar  
 
programming4us programming4us