Огромное количество текстовых файлов с повторным кодом

Question

У меня есть около 200 текстовых полей в моей форме. Нажав «Enter», вы перейдете в следующее текстовое поле. Нажатие кнопки «Вверх» приводит вас в верхнее текстовое поле и т. Д. Я знаю кодировку, но это 200 текстовых полей, поэтому это будет огромное количество копий/вставки. Есть ли короткий способ, который я могу сделать для всех 200 текстовых полей?

Answer 1

Вы действительно хотите показать пользователям 200 текстовых полей в одной форме? Вы должны по крайней мере группировать их в контейнере логически, например, в Panel. Тогда вы можете использовать OfType.

Вы можете добавить это в конструкторе форм-класса, который использует анонимный обработчик события:

Dim allTextBoxes = from txt in Me.TextBoxPanel.Controls.OfType(Of TextBox)() 
        Order by txt.TabIndex 
Dim txtList = allTextBoxes.ToList() 

For i As Int32 = 0 To txtList.Count - 1 
    Dim thisTxt = txtList(i) 
    Dim nextIndex = If(i + 1 >= txtList.Count, 0, i + 1) 
    Dim prevIndex = If(i - 1 < 0, txtList.Count - 1, i - 1) 
    Dim nextTxt = txtList(nextIndex) 
    Dim prevTxt = txtList(prevIndex) 

    AddHandler thisTxt.KeyDown, 
     Sub(txt As Object, e As KeyEventArgs) 
      If e.KeyCode = 38 Then 'up 
       Me.ActiveControl = prevTxt 
      ElseIf e.KeyCode = 13 Then 'enter 
       Me.ActiveControl = nextTxt 
      End If 
     End Sub 
Next