Вопрос : 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 () Закончитесь если Закончитесь если Закончитесь если Закончите подводную лодку Закончите тип