Вопрос : using кнопка для того чтобы проводить textboxes

vb.net 2008

What, котор я имею:
I имеет 72 textboxes на form.
textbox0 к down


For across
8 textbox71

9 теперь, котор мне нужно кнопка пойти к «правому»  --->


Problem:
This работает до тех пор пока я не получить к «texbox2» после этого stops



In случай Gotfocus каждого textbox, котор я имею: подводная лодка TextBox3_GotFocus Sub

конца
ручек TextBox2.GotFocus
MyName подводной лодки TextBox2_GotFocus Sub

конца
ручек TextBox1.GotFocus
MyName подводной лодки TextBox1_GotFocus Sub
конца
ручек TextBox0.GotFocus
MyName
Private Sub TextBox0_GotFocus (прислужника ByVal как предмет, ByVal e как System.EventArgs) () приватная (прислужника ByVal как предмет, ByVal e как System.EventArgs) () приватная (прислужника ByVal как предмет, ByVal e как System.EventArgs) () приватная (прислужник ByVal как предмет, ByVal e как System.EventArgs) регулирует currentLocation Sub


Public конца
TextBox3.GotFocus
MyName () по мере того как
MyName функции Integer

Public () на резюме Next
затемняют myPointer как ctlCurrentControl Integer
тусклое как ctlCurrentControl TextBox
= myPointer ActiveControl
= средний (ctlCurrentControl.Name, предложения 8)

End Function

Any?
Thanks
fordraiders

 class=

Ответ : using кнопка для того чтобы проводить textboxes

Здесь пример как «связать проволокой вверх по» ВСЕМ 72 TextBoxes к такому же укротителю случая на продолжитеном по времени поэтому вы не должны ручно создать 72 по-разному укротителя в IDE.

Также включены примеры как снабдить налево, справедливо, вверх и вниз кнопок:
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:

Общественный тип Form1

    Приватное LastTextBox как TextBox = ничего

    Приватные ручки MyBase.Load подводной лодки Form1_Load (прислужника ByVal как System.Object, ByVal e как System.EventArgs)
        Тусклый tb как TextBox
        Тусклые ctls () как управление
        Для I как интежер = от 0 до 71
            ctls = Me.Controls.Find («TextBox» & I, поистине)
            Если ctls. Длиной > 0 ctls AndAlso TypeOf (0) будет TextBox после этого
                tb = CType (ctls (0), TextBox)
                AddHandler tb.GotFocus, tb_GotFocus AddressOf
            Закончитесь если
        Затем
    Подводная лодка конца

    Приватное Sub tb_GotFocus (прислужник ByVal как предмет, ByVal e как System.EventArgs)
        Тусклый tb как TextBox = CType (прислужник, TextBox)
        LastTextBox = tb
    Подводная лодка конца

    Приватное Sub btnRight_Click (прислужник ByVal как System.Object, ByVal e как System.EventArgs) регулирует btnRight.Click
        Если не IsNothing (LastTextBox) после этого
            Затемните I как интежер
            Затемните strInt как шнур = LastTextBox.Name.Remove (0, «TextBox». Длина)
            Если Integer.TryParse (strInt, I) после этого
                Если (, то (I + 1) Mod 9) <> 0 после этого
                    iий = I + 1
                    Тусклые ctls () как управление = Me.Controls.Find («TextBox» & I, поистине)
                    Если ctls. Длиной > 0 ctls AndAlso TypeOf (0) будет TextBox после этого
                        Тусклый tb как TextBox = CType (ctls (0), TextBox)
                        tb. Фокус ()
                    Закончитесь если
                Еще
                    LastTextBox.Focus ()
                Закончитесь если
            Закончитесь если
        Закончитесь если
    Закончите подводную лодку

    Приватное Sub btnLeft_Click (прислужник ByVal как System.Object, ByVal e как System.EventArgs) регулирует btnLeft.Click
        Если не IsNothing (LastTextBox) после этого
            Затемните I как интежер
            Затемните strInt как шнур = LastTextBox.Name.Remove (0, «TextBox». Длина)
            Если Integer.TryParse (strInt, I) после этого
                Если (Mod I 9) <> 0 после этого
                    iий = I - 1
                    Тусклые ctls () как управление = Me.Controls.Find («TextBox» & I, поистине)
                    Если ctls. Длиной > 0 ctls AndAlso TypeOf (0) будет TextBox после этого
                        Тусклый tb как TextBox = CType (ctls (0), TextBox)
                        tb. Фокус ()
                    Закончитесь если
                Еще
                    LastTextBox.Focus ()
                Закончитесь если
            Закончитесь если
        Закончитесь если
    Закончите подводную лодку

    Приватное Sub btnUp_Click (прислужник ByVal как System.Object, ByVal e как System.EventArgs) регулирует btnUp.Click
        Если не IsNothing (LastTextBox) после этого
            Затемните I как интежер
            Затемните strInt как шнур = LastTextBox.Name.Remove (0, «TextBox». Длина)
            Если Integer.TryParse (strInt, I) после этого
                Если I > 8 после этого
                    iий = I - 9
                    Тусклые ctls () как управление = Me.Controls.Find («TextBox» & I, поистине)
                    Если ctls. Длиной > 0 ctls AndAlso TypeOf (0) будет TextBox после этого
                        Тусклый tb как TextBox = CType (ctls (0), TextBox)
                        tb. Фокус ()
                    Закончитесь если
                Еще
                    LastTextBox.Focus ()
                Закончитесь если
            Закончитесь если
        Закончитесь если
    Закончите подводную лодку

    Приватное Sub btnDown_Click (прислужник ByVal как System.Object, ByVal e как System.EventArgs) регулирует btnDown.Click
        Если не IsNothing (LastTextBox) после этого
            Затемните I как интежер
            Затемните strInt как шнур = LastTextBox.Name.Remove (0, «TextBox». Длина)
            Если Integer.TryParse (strInt, I) после этого
                Если ctls < 63="" Then="" i="i"> I 0 AndAlso TypeOf (0) будут TextBox после этого
                        Тусклый tb как TextBox = CType (ctls (0), TextBox)
                        tb. Фокус ()
                    Закончитесь если
                Еще
                    LastTextBox.Focus ()
                Закончитесь если
            Закончитесь если
        Закончитесь если
    Закончите подводную лодку

Закончите тип
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us