IForeNETForm.InitForm

Синтаксис Fore

InitForm: Boolean;

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

InitForm: Boolean;

Описание

Метод InitForm осуществляет базовую настройку .NET-формы и возвращает признак удачного завершения настройки.

будет создан модуль дизайна формы и сформирован его код;
будет создан файл ресурсов;
будут добавлены ссылки на сборки, которые необходимы для работы .NET-формы:
- Forms.Net;
- System.Data;
- System.Drawing;
- System.Windows.Forms.

Результатом выполнения метода является значение True, если все изменения произведены удачно.

Пример Fore

Для выполнения примера предполагается наличие в репозитории .NET-сборки с идентификатором «Assembly_1».

Sub CreateNETForm;
Var
    MB: IMetabase;
    NetForm: IForeNETForm;
    CrInfo: IMetabaseObjectCreateInfo;
Begin
    MB := MetabaseClass.Active;
    CrInfo := MB.CreateCreateInfo;
    CrInfo.ClassID := MetabaseObjectClass.KE_CLASS_NETFORM;
    CrInfo.Name := "Новая форма";
    CrInfo.Id := MB.GenerateId("NewForm");
    CrInfo.Permanent := True;
    CrInfo.Parent := MB.ItemById("Assembly_1");
    NetForm := MB.CreateObject(CrInfo).Bind As IForeNETForm;
    NetForm.InitForm;
End Sub CreateNETForm;

При выполнении примера в указанной .NET-сборке будет создана новая .NET-форма.

Пример Fore.NET

Для выполнения примера предполагается наличие в репозитории .NET-сборки с идентификатором «Assembly_1». Указанная процедура является точкой входа для .NET-сборки.

Imports Prognoz.Platform.Interop.ForeNet;
Imports Prognoz.Platform.Interop.Metabase;

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    NetForm: IForeNETForm;
    CrInfo: IMetabaseObjectCreateInfo;
Begin
    MB := Params.Metabase;
    CrInfo := MB.CreateCreateInfo();
    CrInfo.ClassID := MetabaseObjectClass.KE_CLASS_NETFORM As Integer;
    CrInfo.Name := "Новая форма";
    CrInfo.Id := MB.GenerateId("NewForm", 0);
    CrInfo.Permanent := True;
    CrInfo.Parent := MB.ItemById["Assembly_1"];
    NetForm := MB.CreateObject(CrInfo).Bind() As IForeNETForm;
    NetForm.InitForm();
End Sub;