Item(Index: Integer): ITabFormatCondition;
Item[Index: integer]: Prognoz.Platform.Interop.Tab.ITabFormatCondition;
Index. Индекс условного формата, к которому необходимо получить доступ.
Свойство Item возвращает ссылку на условный формат, индекс которого передается в качестве входного параметра Index.
Для выполнения примера предполагается наличие формы, содержащей компонент Button с идентификатором «Button1», компонент TabSheetBox с идентификатором «TabSheetBox1» и компонент UiErAnalyzer с идентификатором «UiErAnalyzer1». Для компонента «TabSheetBox1» укажите источник данных «UiErAnalyzer1».
Пример является обработчиком события OnClick для компонента «Button1».
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Tab: ITabSheet;
Format: ITabFormatCondition;
i: Integer;
Begin
Tab := TabSheetBox1.Source.GetTabSheet;
For i := 0 To Tab.FormatConditions.Count - 1 Do
Format := Tab.FormatConditions.Item(i);
Debug.Write("Диапазон: " + Format.Range.Address + " Условие: ");
Select Case Format.Type As Integer
Case 0: Debug.WriteLine("Форматирование на основе значений ячеек");
Case 1: Debug.WriteLine("Форматирование ячейки с определенным значением");
Case 2: Debug.WriteLine("Форматирование ячеек с наибольшими/наименьшими значениями");
Case 3: Debug.WriteLine("Форматирование ячеек со значениями выше/ниже среднего");
Case 4: Debug.WriteLine("Форматирование ячеек с уникальными/дублирующимися значениями");
Case 5: Debug.WriteLine("Форматирование ячеек, удовлетворяющих формуле");
End Select;
End For;
End Sub Button1OnClick;
После выполнения примера при нажатии на кнопку в консоль будет выведен список, содержащий наименование диапазона ячеек и тип условного форматирования, применяемый к данному диапазону таблицы.
Для выполнения примера предполагается наличие формы, содержащей компонент Button с идентификатором «button1», компонент TabSheetBoxNet с идентификатором «tabSheetBoxNet1» и компонент UiErAnalyzerNet с идентификатором «uiErAnalyzerNet1». Для компонента «TabSheetBoxNet1» укажите источник данных «uiErAnalyzerNet1».
Пример является обработчиком события Click для компонента «Button1».
Добавьте ссылку на системную сборку «Tab».
Imports Prognoz.Platform.Interop.Tab;
…
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
Tab: ITabSheet;
Format: ITabFormatCondition;
i: Integer;
Begin
Tab := tabSheetBoxNet1.Source.GetTabSheet();
For i := 0 To Tab.FormatConditions.Count - 1 Do
Format := Tab.FormatConditions.Item[i];
System.Diagnostics.Debug.WriteLine("Диапазон: " + Format.Range.Address);
System.Diagnostics.Debug.WriteLine("Условие: ");
Select Case Format.Type As Integer
Case 0: System.Diagnostics.Debug.WriteLine("Форматирование на основе значений ячеек");
Case 1: System.Diagnostics.Debug.WriteLine("Форматирование ячейки с определенным значением");
Case 2: System.Diagnostics.Debug.WriteLine("Форматирование ячеек с наибольшими/наименьшими значениями");
Case 3: System.Diagnostics.Debug.WriteLine("Форматирование ячеек со значениями выше/ниже среднего");
Case 4: System.Diagnostics.Debug.WriteLine("Форматирование ячеек с уникальными/дублирующимися значениями");
Case 5: System.Diagnostics.Debug.WriteLine("Форматирование ячеек, удовлетворяющих формуле");
End Select;
End For;
End Sub;
Результат выполнения примера Fore.NET совпадет с результатом выполнения примера Fore.
См. также: