Question : using le bouton pour diriger des boîtes à textes

vb.net 2008

What que j'ai : le
I ont 72 boîtes à textes sur un form.
textbox0 au down


For de l'across
8 de textbox71

9 maintenant que j'ai besoin d'un bouton pour sauter vers le « droit »  --->


Problem:le
This fonctionne jusqu'à ce que j'obtienne « texbox2 » puis au stops



In l'événement de Gotfocus de chaque boîte à textes que j'ai : le sous-marin privé privé privé secondaire TextBox3_GotFocus (expéditeur de Sub

de fin du
des poignées TextBox2.GotFocus
MyName du sous-marin TextBox2_GotFocus (expéditeur de Sub

de fin du
des poignées TextBox1.GotFocus
MyName du sous-marin TextBox1_GotFocus (expéditeur de Sub
de fin du
des poignées TextBox0.GotFocus
MyName du
Private TextBox0_GotFocus (expéditeur de ByVal comme objet, ByVal e comme System.EventArgs) () de ByVal comme objet, ByVal e comme System.EventArgs) () de ByVal comme objet, ByVal e comme System.EventArgs) () de ByVal comme objet, ByVal e comme System.EventArgs) manipule le currentLocation de Sub


Public de fin du
de TextBox3.GotFocus
MyName () pendant que le
de MyName de fonction d'Integer

Public () sur le résumé Next
obscurcissent le myPointer comme faible ctlCurrentControl d'Integer
comme ctlCurrentControl de TextBox
= myPointer d'ActiveControl
= mi (ctlCurrentControl.Name, suggestions de 8)

End Function

Any ?
Thanks
fordraiders

 class= de

Réponse : using le bouton pour diriger des boîtes à textes

Voici un exemple de la façon « câbler vers le haut » de CHACUNE DES 72 boîtes à textes au même traiteur d'événement à d'exécution ainsi vous ne devez pas manuellement créer 72 traiteurs différents dans l'ide.

Également inclus sont des exemples de la façon mettre en application à gauche, bien, à travers des boutons :
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 publique Form1

    LastTextBox privé comme boîte à textes = rien

    Poignées privées MyBase.Load du sous-marin Form1_Load (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs)
        Faible TB comme boîte à textes
        Faibles ctls () comme commande
        Pour I comme nombre entier = 0 à 71
            ctls = Me.Controls.Find (« boîte à textes » et I, vrai)
            Si ctls. La longueur > 0 les ctls d'AndAlso TypeOf (0) est boîte à textes alors
                TB = C (ctls (0), boîte à textes)
                AddHandler tb.GotFocus, tb_GotFocus d'AddressOf
            Finir si
        Après
    Sous-marin d'extrémité

    tb_GotFocus secondaire privé (expéditeur de ByVal comme objet, ByVal e comme System.EventArgs)
        Faible TB comme boîte à textes = C (expéditeur, boîte à textes)
        LastTextBox = TB
    Sous-marin d'extrémité

    Le btnRight_Click secondaire privé (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs) manipule btnRight.Click
        Sinon IsNothing (LastTextBox) puis
            Obscurcir I comme nombre entier
            Obscurcir le strInt comme corde = LastTextBox.Name.Remove (0, « boîte à textes ». Longueur)
            S'Integer.TryParse (strInt, i) alors
                Si ((I + 1) mod 9) <> 0 puis
                    i = I + 1
                    Faibles ctls () comme commande = Me.Controls.Find (« boîte à textes » et I, vrai)
                    Si ctls. La longueur > 0 les ctls d'AndAlso TypeOf (0) est boîte à textes alors
                        Faible TB comme boîte à textes = C (ctls (0), boîte à textes)
                        TB. Foyer ()
                    Finir si
                Autrement
                    LastTextBox.Focus ()
                Finir si
            Finir si
        Finir si
    Finir le sous-marin

    Le btnLeft_Click secondaire privé (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs) manipule btnLeft.Click
        Sinon IsNothing (LastTextBox) puis
            Obscurcir I comme nombre entier
            Obscurcir le strInt comme corde = LastTextBox.Name.Remove (0, « boîte à textes ». Longueur)
            S'Integer.TryParse (strInt, i) alors
                Si (mod d'I 9) <> 0 puis
                    i = I - 1
                    Faibles ctls () comme commande = Me.Controls.Find (« boîte à textes » et I, vrai)
                    Si ctls. La longueur > 0 les ctls d'AndAlso TypeOf (0) est boîte à textes alors
                        Faible TB comme boîte à textes = C (ctls (0), boîte à textes)
                        TB. Foyer ()
                    Finir si
                Autrement
                    LastTextBox.Focus ()
                Finir si
            Finir si
        Finir si
    Finir le sous-marin

    Le btnUp_Click secondaire privé (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs) manipule btnUp.Click
        Sinon IsNothing (LastTextBox) puis
            Obscurcir I comme nombre entier
            Obscurcir le strInt comme corde = LastTextBox.Name.Remove (0, « boîte à textes ». Longueur)
            S'Integer.TryParse (strInt, i) alors
                Si I > 8 puis
                    i = I - 9
                    Faibles ctls () comme commande = Me.Controls.Find (« boîte à textes » et I, vrai)
                    Si ctls. La longueur > 0 les ctls d'AndAlso TypeOf (0) est boîte à textes alors
                        Faible TB comme boîte à textes = C (ctls (0), boîte à textes)
                        TB. Foyer ()
                    Finir si
                Autrement
                    LastTextBox.Focus ()
                Finir si
            Finir si
        Finir si
    Finir le sous-marin

    Le btnDown_Click secondaire privé (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs) manipule btnDown.Click
        Sinon IsNothing (LastTextBox) puis
            Obscurcir I comme nombre entier
            Obscurcir le strInt comme corde = LastTextBox.Name.Remove (0, « boîte à textes ». Longueur)
            S'Integer.TryParse (strInt, i) alors
                Si les ctls < 63="" Then="" i="i"> d'I 0 AndAlso TypeOf (0) est boîte à textes alors
                        Faible TB comme boîte à textes = C (ctls (0), boîte à textes)
                        TB. Foyer ()
                    Finir si
                Autrement
                    LastTextBox.Focus ()
                Finir si
            Finir si
        Finir si
    Finir le sous-marin

Finir la classe
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us