ITabCellIterator.Next

Синтаксис Fore

Next: Boolean;

Синтаксис Fore.NET

Next(): System.Boolean;

Описание

Метод Next осуществляет переход на следующий элемент итератора.

Комментарии

При первом вызове метода осуществляется переход на первый элемент итератора.

Пример Fore

Для выполнения примера создайте форму и разместите на ней следующие компоненты:

• TabSheetBox с наименованием «TabSheetBox1»;

• UiTabSheet c наименованием «UiTabSheet1». Компонент UiTabSheet является источником данных для компонента TabSheetBox;

• компоненты Button с наименованиями «Button1» и «Button2».

Подключите ссылку на системную сборку Tab.

Добавим обработчики событий нажатия на кнопки «Button1» и «Button2»:

Class ITERATORForm: Form
    TabSheetBox1: TabSheetBox;
    UiTabSheet1: UiTabSheet;
    Button1: Button;
    Button2: Button;
    iter : ITabCellIterator;
    tab : ITabSheet;
    Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
    Begin
        tab:= UiTabSheet1.TabSheet;
        //cоздаем итератор для выделенного диапазона ячеек:
        iter := tab.View.Selection.Range.CreateIterator;
        //определяем порядок «по столбцам»
        iter.Order := TabCellIteratorOrder.Columns;
    End Sub Button1OnClick;
    Sub Button2OnClick(Sender: Object; Args: IMouseEventArgs);
    Begin
      //выделяем в таблице ячейки, на которые переходит итератор

        If iter.Next Then
            tab.View.Selection.Range := tab.Cell(iter.CurrentRow,iter.CurrentColumn);
        End If;
    End Sub Button2OnClick;
End Class ITERATORForm;

После выполнения примера будет создана форма. Введите значения в некоторые ячейки и выделите диапазон, включающий в себя эти ячейки:

При нажатии на кнопку «Button1» (в нашем примере это кнопка с текстом «Создать итератор») для выделенного диапазона таблицы будет создан итератор и определен порядок перехода по ячейкам таблицы - «По столбцам».

Нажмите на кнопку «Button2» (в нашем примере это кнопка с текстом «Следующий»). Будет выделена первая ячейка, содержащая значение (в нашем примере это ячейка A1). При дальнейшем нажатии на кнопку «Button2» будут выделяться ячейки, по которым переходит итератор. Установлен порядок перехода «По столбцам», поэтому ячейки будут выделяться в следующей последовательности: A1-B2-B3-C0-D2. При выборе порядка перехода «По строкам» ячейки будут выделяться в следующей последовательности: C0-A1-B2-D2-B3.

Пример Fore.NET

Для выполнения примера создайте NET-форму и разместите на ней следующие компоненты:

• TabSheetBoxNet с наименованием «TabSheetBoxNet1»;

• UiTabSheetNet c наименованием «UiTabSheetNet1». Компонент UiTabSheetNet является источником данных для компонента TabSheetBoxNet;

• компоненты Button с наименованиями «Button1» и «Button2».

Подключите ссылку на системную сборку Tab:

Imports Prognoz.Platform.Interop.Tab;

Добавим обработчики событий нажатия на кнопки «Button1» и «Button2»:

Public Partial Class ITERATORForm: Prognoz.Platform.Forms.Net.ForeNetForm
    Public Constructor OBJ39645Form();
    Begin
        InitializeComponent();
    End Constructor;
      iter: ITabCellIterator;
      tab: ITabSheet;
    Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
    Begin
        tab:= UiTabSheetNet1.TabSheetUi.TabSheet;
        iter := tab.View.Selection.Range.CreateIterator();
        iter.Order := TabCellIteratorOrder.tcioColumns;
    End Sub;
    Private Sub button2_Click(sender: System.Object; e: System.EventArgs);
    Begin
       //выделяем в таблице ячейки, на которые переходит итератор

        If iter.Next() Then
            tab.View.Selection.Range := tab.Cell[iter.CurrentRow,iter.CurrentColumn];
        End If;
    End Sub;
End Class;

Результат выполнения примера на Fore.NET аналогичен результату выполнения примера на Fore (см. выше).

См. также:

ITabCellIterator