Справка по  ActiveField™ 

об ELCUT     Скачать     Контакты

Технология ActiveField
Обзор объектов
Диаграмма иерархии объектов
С чего начать: Объект Application
Как работать с задачами
Как работать с геометрической моделью
Как работать с физическими свойствами
Как анализировать результаты

Объекты

Свойства

Методы

Application Object

Свойства

Методы

Краткое описание

Объект, содержащий наиболее общую информацию о приложении ELCUT.

Подробное описание

Объект Application представляет саму программу ELCUT. Объект Application содержит:

Использование объекта Application

Вообще-то первое, что надо сделать в программе - это запустить сервер ELCUT. Это можно сделать одним из следующих способов:

  1. Функция CreateObject

    Dim ELC As ELCUT.Application
    Set ELC = CreateObject("ELCUT.Application")

    Функция CreateObject запускает ELCUT и возвращает ссылку на объект Application. Результат присваивается переменной ELC для дальнейшего использования. Если пользовательское приложение запускает ELCUT, то оно также должно закрывать ELCUT после использования. Чтобы сделать это, необходимо убрать все ссылки на объекты ELCUT и применить метод Quit:

    ELC.Quit

  2. Функция GetObject.

    Функция GetObject позволяет получить ссылку на программу ELCUT, если она уже запущена.

    Dim ELC1 as Object
    Set ELC1 = GetObject(,"ELCUT.Application")

    После завершения работы с ELCUT необходимо убрать ссылку на ELCUT следующим образом:

    Set ELC1 = Nothing

  3. Ключевое слово New.
    New - это ключевое слово, которое вызывает неявное создание объекта.

    Dim ELC2 As New ELCUT.Application

    Если используется ключевое слово New, то нет необходимости использовать оператор Set для инициализации переменной ELC2.

Замечания

Обычно первый раз объект Application получается при использовании функций CreateObject или GetObject. В дальнейшем при работе некоторые объекты ELCUT имеют свойство Application, которое возвращает новую ссылку на родительский объект Application. Закончив работу с переменной, которая содержала ссылку на объект Application, необходимо убрать эту ссылку:

dim prb as ELCUT.Problem
    .........
dim ELC1 As ELCUT.Application
set ELC1 = prb.Application
    ..........
set ELC1 = Nothing