Questione : using il tasto per traversare le caselle di testo

vb.net 2008

What che ho: il
I ha 72 caselle di testo su un form.
textbox0 al down


For del across
8 di textbox71

9 ora che ho bisogno di un tasto di andare “al di destra„  --->


Problem:il
This sta funzionando fino a che non ottenga “texbox2„ allora allo stops



In l'evento di Gotfocus di ogni casella di testo che ho: il sommergibile riservato riservato riservato secondario TextBox3_GotFocus (mittente di Sub

di conclusione del
delle maniglie TextBox2.GotFocus
MyName del sommergibile TextBox2_GotFocus (mittente di Sub

di conclusione del
delle maniglie TextBox1.GotFocus
MyName del sommergibile TextBox1_GotFocus (mittente di Sub
di conclusione del
delle maniglie TextBox0.GotFocus
MyName del
Private TextBox0_GotFocus (mittente di ByVal come oggetto, ByVal e come System.EventArgs) () di ByVal come oggetto, ByVal e come System.EventArgs) () di ByVal come oggetto, ByVal e come System.EventArgs) () di ByVal come oggetto, ByVal e come System.EventArgs) tratta il currentLocation di Sub


Public di conclusione del
di TextBox3.GotFocus
MyName () mentre
di MyName di funzione di Integer

Public () sul riassunto Next
oscurano il myPointer come ctlCurrentControl fioco di Integer
come il ctlCurrentControl di TextBox
= myPointer di ActiveControl
= metà di (ctlCurrentControl.Name, suggerimenti di 8)

End Function

Any?
Thanks
fordraiders

 class= del

Risposta : using il tasto per traversare le caselle di testo

Qui è un esempio di come “fissare„ su TUTTE E 72 le caselle di testo allo stesso alimentatore di evento a run-time in modo da non dovete manualmente generare 72 alimentatori differenti nell'ido.

Inoltre sono inclusi gli esempi di come realizzare a sinistra, a destra, su e giù i tasti:
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:

Codice categoria pubblico Form1

    LastTextBox riservato come casella di testo = niente

    Maniglie riservate MyBase.Load del sommergibile Form1_Load (mittente di ByVal come System.Object, ByVal e come System.EventArgs)
        TB fioca come casella di testo
        Ctls fiochi () come controllo
        Per la i come numero intero = 0 - 71
            ctls = Me.Controls.Find (“casella di testo„ & i, allineare)
            Se ctls. La lunghezza > 0 ctls di AndAlso TypeOf (0) allora è casella di testo
                TB = l$tipo C (ctls (0), casella di testo)
                AddHandler tb.GotFocus, tb_GotFocus di AddressOf
            Concluder se
        Dopo
    Sommergibile dell'estremità

    tb_GotFocus secondario riservato (mittente di ByVal come oggetto, ByVal e come System.EventArgs)
        TB fioca come la casella di testo = l$tipo C (mittente, casella di testo)
        LastTextBox = TB
    Sommergibile dell'estremità

    Il btnRight_Click secondario riservato (mittente di ByVal come System.Object, ByVal e come System.EventArgs) tratta btnRight.Click
        Se non IsNothing (LastTextBox) allora
            Oscurare la i come numero intero
            Oscurare lo strInt come stringa = LastTextBox.Name.Remove (0, “casella di testo„. Lunghezza)
            Se Integer.TryParse (strInt, i) allora
                Se ((i + 1) MOD 9) <> 0 allora
                    i = i + 1
                    Ctls fiochi () come controllo = Me.Controls.Find (“casella di testo„ & i, allineare)
                    Se ctls. La lunghezza > 0 ctls di AndAlso TypeOf (0) allora è casella di testo
                        TB fioca come la casella di testo = l$tipo C (ctls (0), casella di testo)
                        TB. Fuoco ()
                    Concluder se
                Altrimenti
                    LastTextBox.Focus ()
                Concluder se
            Concluder se
        Concluder se
    Concludere il sommergibile

    Il btnLeft_Click secondario riservato (mittente di ByVal come System.Object, ByVal e come System.EventArgs) tratta btnLeft.Click
        Se non IsNothing (LastTextBox) allora
            Oscurare la i come numero intero
            Oscurare lo strInt come stringa = LastTextBox.Name.Remove (0, “casella di testo„. Lunghezza)
            Se Integer.TryParse (strInt, i) allora
                Se (MOD di i 9) <> 0 allora
                    i = i - 1
                    Ctls fiochi () come controllo = Me.Controls.Find (“casella di testo„ & i, allineare)
                    Se ctls. La lunghezza > 0 ctls di AndAlso TypeOf (0) allora è casella di testo
                        TB fioca come la casella di testo = l$tipo C (ctls (0), casella di testo)
                        TB. Fuoco ()
                    Concluder se
                Altrimenti
                    LastTextBox.Focus ()
                Concluder se
            Concluder se
        Concluder se
    Concludere il sommergibile

    Il btnUp_Click secondario riservato (mittente di ByVal come System.Object, ByVal e come System.EventArgs) tratta btnUp.Click
        Se non IsNothing (LastTextBox) allora
            Oscurare la i come numero intero
            Oscurare lo strInt come stringa = LastTextBox.Name.Remove (0, “casella di testo„. Lunghezza)
            Se Integer.TryParse (strInt, i) allora
                Se i > 8 allora
                    i = i - 9
                    Ctls fiochi () come controllo = Me.Controls.Find (“casella di testo„ & i, allineare)
                    Se ctls. La lunghezza > 0 ctls di AndAlso TypeOf (0) allora è casella di testo
                        TB fioca come la casella di testo = l$tipo C (ctls (0), casella di testo)
                        TB. Fuoco ()
                    Concluder se
                Altrimenti
                    LastTextBox.Focus ()
                Concluder se
            Concluder se
        Concluder se
    Concludere il sommergibile

    Il btnDown_Click secondario riservato (mittente di ByVal come System.Object, ByVal e come System.EventArgs) tratta btnDown.Click
        Se non IsNothing (LastTextBox) allora
            Oscurare la i come numero intero
            Oscurare lo strInt come stringa = LastTextBox.Name.Remove (0, “casella di testo„. Lunghezza)
            Se Integer.TryParse (strInt, i) allora
                Se i ctls < 63="" Then="" i="i"> di i 0 AndAlso TypeOf (0) allora è casella di testo
                        TB fioca come la casella di testo = l$tipo C (ctls (0), casella di testo)
                        TB. Fuoco ()
                    Concluder se
                Altrimenti
                    LastTextBox.Focus ()
                Concluder se
            Concluder se
        Concluder se
    Concludere il sommergibile

Concludere il codice categoria
Altre soluzioni  
 
programming4us programming4us