| |
Перебор массива TextBox'ов |
|
| |
Однажды мне задали вопрос: "Если у меня есть массив элементов TextBox, как мне последовательно обойти все элементы?". Данный пример годится не только для TextBox'ов.
Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then 'нажата клавиша ENTER
NewIndex = Index + 1 'вычисляется следующий по индексу
TextBox
On Error Resume Next 'если достигнут последний индекс, это
позволит избежать ошибки
Text1(NewIndex).SetFocus 'операция получения ввода
следующего ТекстБокса
End If
End Sub
|
|
| |
|
|
|
|