Merge;
Merge();
Метод Merge объединяет все ячейки диапазона в одну ячейку.
Для определения наличия объединенных ячеек используйте свойство ITabRange.Merged.
Для выполнения примера предполагается наличие формы, содержащей компонент Button с идентификатором «Button1», компонент TabSheetBox с идентификатором «TabSheetBox1» и компонент UiTabSheet с идентификатором «UiTabSheet1». Пример является обработчиком события OnClick для компонента «Button1».
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Tsheet: ITabSheet;
Range: ITabRange;
Begin
TSheet := UiTabSheet1.TabSheet;
Range := Tsheet.Cells(0, 0, 5, 5);
Range.Merge;
End Sub Button1OnClick;
После выполнения примера диапазон ячеек будет объединен в одну ячейку.
Для выполнения примера предполагается наличие формы, содержащей компонент Button с идентификатором «button1», компонент TabSheetBoxNet с идентификатором «TabSheetBoxNet1» и компонент UiTabSheetNet с идентификатором «UiTabSheetNet1». Пример является обработчиком события Click для компонента «button1». Добавьте ссылку на системную сборку «Tab».
Imports Prognoz.Platform.Interop.Tab;
…
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
Tsheet: ITabSheet;
Range: ITabRange;
Begin
TSheet := uiTabSheetNet1.TabSheetUi.TabSheet;
Range := Tsheet.Cells[0, 0, 5, 5];
Range.Merge();
End Sub;
Результат выполнения примера Fore.NET совпадет с результатом выполнения примера Fore.
См. также: