Перебор управления по TabOrder

Question

Сегодня я попросил помощь на пробегает по всем элементам управления в форме на заказ для ссылки NumericUpDown, и это было принято отвечать:

Dim errors As String = "" 
For Each ctrl As Control In Me.Controls 
    Dim num = TryCast(ctrl, NumericUpDown) 
    If num IsNot Nothing AndAlso (num.Value < 1 OrElse num.Value > 50) Then 
     errors += ctrl.Name + " is out of range." + Environment.NewLine 
    End If 
Next 

Позже, развивая свою программу, я понял, что NumericUpDown являются перечисленные в (для меня) неизвестный порядок, и это не нужен результат.
Мне бы хотелось/нужно, чтобы NumericUpDown был зациклен индексом порядка вкладок.

Любое предложение, как получить это с замечанием о том, что linq недоступен, поскольку это приложение предназначено для .NET framework 2.0.

Answer 1

Предположим, что у вас есть три NumericUpDown управления определены в конструкторе и назван numericUpDown1,numericUpDown2,numericUpDown3 Теперь объявить глобальную переменную в классе формы

Public Class MyForm 

    Dim numUpDnList(2) As NumericUpDown 
    .... 

Затем в коде (возможно, в случае загрузки формы) добавить их в переменная массива в том порядке, что вам требуется

Protected Sub MyForm_Load(sender as Object, e as EventArgs) Handles Form.Load 

     numUpDnList(0) = numericUpDown1 
     numUpDnList(1) = numericUpDown3 
     numUpDnList(2) = numericUpDown2 

End Sub 

в этот момент, когда вам нужно перечислить эти элементы управления, код довольно прост

Dim errors As String = "" 
For Each num In numUpDnList 
    If (num.Value < 1 OrElse num.Value > 50) Then 
     errors += num.Name + " is out of range." + Environment.NewLine 
    End If 
Next 

Существует также другой способ петли над коллекцией Controls с использованием метода GetNextControl, который следует за TabOrder.

Dim errors as String 
Dim ctrl = Me.GetNextControl(f, true) 
while ctrl IsNot Nothing 
    Dim num = TryCast(ctrl, NumericUpDown) 
    If num IsNot Nothing AndAlso (num.Value < 1 OrElse num.Value > 50) Then 
     errors += ctrl.Name + " is out of range." + Environment.NewLine 
    End If   
    ctrl = f.GetNextControl(ctrl, true) 
End While