Vraag : het gebruiken van knoop om te navigeren textboxes

vb.net 2008

What die ik heb gehad:
I heeft 72 textboxes op een form.
textbox0 aan textbox71

9 across
8 down


For nu I behoefte een knoop om naar „juist“ te gaan  --->


Problem:
This werkt tot ik aan „texbox2“ toen stops



In de gebeurtenis Gotfocus van elke textbox krijg die ik heb gehad: (ByVal afzender als Voorwerp, ByVal e als System.EventArgs) currentLocation/>
Public van Sub



Private hervat SubTextBox0_GotFocus TextBox0.GotFocus
MyName ()/>/> Privé Sub (ByVal afzender als Voorwerp, ByVal e als System.EventArgs) TextBox1.GotFocus
MyName ()/>/> Privé Sub (ByVal afzender als Voorwerp, ByVal e als System.EventArgs) TextBox2.GotFocus
MyName ()/>/> Privé Sub (ByVal afzender als Voorwerp, ByVal e als System.EventArgs) TextBox3.GotFocus
MyName ()/> als Functie/>Public MyName van Integer

op Fout Next
schemerige myPointer als/> Schemerige ctlCurrentControl Integer
ctlCurrentControl TextBox
myPointer = Medio (ctlCurrentControl.Name, 8)

End Function

Any- suggesties?
Thanks
fordraiders

Antwoord : het gebruiken van knoop om te navigeren textboxes

Hier is een voorbeeld van hoe te ALLE 72 TextBoxes aan de zelfde gebeurtenismanager bij run-time „omhoog“ telegraferen zodat moet u niet manueel 72 verschillende managers in winde creëren.

Ook worden de voorbeelden van omvat hoe te, net, boven en beneden knopen links uit te voeren:
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:

Openbare Klasse Form1

    Privé LastTextBox als TextBox = niets

    Privé Sub (ByVal afzender als System.Object, ByVal e als System.EventArgs) Handvatten Form1_Load MyBase.Load
        Schemerige tb als TextBox
        Schemerige ctls () als Controle
        Voor I als Geheel = 0 tot 71
            ctls = Me.Controls.Find („TextBox“ & Ware I,)
            Als ctls. De lengte > 0 AndAlso TypeOf ctls (0) is dan TextBox
                tb = C (ctls (0), TextBox)
                AddHandler tb.GotFocus, tb_GotFocus AddressOf
            Eind als
        Daarna
    Sub van het eind

    Privé Subtb_GotFocus (ByVal afzender als Voorwerp, ByVal e als System.EventArgs)
        Schemerige tb als TextBox = C (afzender, TextBox)
        LastTextBox = tb
    Sub van het eind

    Privé SubbtnRight_Click (ByVal afzender als System.Object, ByVal e als System.EventArgs) behandelt btnRight.Click
        Als niet IsNothing (LastTextBox) toen
            Schemerige I als Geheel
            Schemerige strInt als Koord = LastTextBox.Name.Remove (0, „TextBox“. Lengte)
            Als Integer.TryParse (strInt, I) Dan
                Als ((I + 1) Mod. 9) <> 0 toen
                    i = I + 1
                    Schemerige ctls () als Controle = Me.Controls.Find („TextBox“ & Ware I,)
                    Als ctls. De lengte > 0 AndAlso TypeOf ctls (0) is dan TextBox
                        Schemerige tb als TextBox = C (ctls (0), TextBox)
                        tb. Nadruk ()
                    Eind als
                Anders
                    LastTextBox.Focus ()
                Eind als
            Eind als
        Eind als
    Sub van het eind

    Privé SubbtnLeft_Click (ByVal afzender als System.Object, ByVal e als System.EventArgs) behandelt btnLeft.Click
        Als niet IsNothing (LastTextBox) toen
            Schemerige I als Geheel
            Schemerige strInt als Koord = LastTextBox.Name.Remove (0, „TextBox“. Lengte)
            Als Integer.TryParse (strInt, I) Dan
                Als (Mod. 9 van I) <> 0 toen
                    i = I - 1
                    Schemerige ctls () als Controle = Me.Controls.Find („TextBox“ & Ware I,)
                    Als ctls. De lengte > 0 AndAlso TypeOf ctls (0) is dan TextBox
                        Schemerige tb als TextBox = C (ctls (0), TextBox)
                        tb. Nadruk ()
                    Eind als
                Anders
                    LastTextBox.Focus ()
                Eind als
            Eind als
        Eind als
    Sub van het eind

    Privé SubbtnUp_Click (ByVal afzender als System.Object, ByVal e als System.EventArgs) behandelt btnUp.Click
        Als niet IsNothing (LastTextBox) toen
            Schemerige I als Geheel
            Schemerige strInt als Koord = LastTextBox.Name.Remove (0, „TextBox“. Lengte)
            Als Integer.TryParse (strInt, I) Dan
                Als I > 8 toen
                    i = I - 9
                    Schemerige ctls () als Controle = Me.Controls.Find („TextBox“ & Ware I,)
                    Als ctls. De lengte > 0 AndAlso TypeOf ctls (0) is dan TextBox
                        Schemerige tb als TextBox = C (ctls (0), TextBox)
                        tb. Nadruk ()
                    Eind als
                Anders
                    LastTextBox.Focus ()
                Eind als
            Eind als
        Eind als
    Sub van het eind

    Privé SubbtnDown_Click (ByVal afzender als System.Object, ByVal e als System.EventArgs) behandelt btnDown.Click
        Als niet IsNothing (LastTextBox) toen
            Schemerige I als Geheel
            Schemerige strInt als Koord = LastTextBox.Name.Remove (0, „TextBox“. Lengte)
            Als Integer.TryParse (strInt, I) Dan
                Als I < 63="" Then="" i="i"> 0 AndAlso TypeOf ctls (0) dan TextBox is
                        Schemerige tb als TextBox = C (ctls (0), TextBox)
                        tb. Nadruk ()
                    Eind als
                Anders
                    LastTextBox.Focus ()
                Eind als
            Eind als
        Eind als
    Sub van het eind

De Klasse van het eind
Andere oplossingen  
 
programming4us programming4us