Метод CreateComplete (Объект IIngeoDbSysObjectsSink)

Синтаксис

Язык	Описание
VBScript, JavaScript	SubCreateComplete(aSysObjectType, aSysObject, aMy)
Visual Basic	Sub CreateComplete(ByVal aSysObjectType As TIngeoSysObjectType, ByVal aSysObject As Object, ByVal aMy As Boolean)
Delphi	procedure CreateComplete(aSysObjectType: TIngeoSysObjectType; aSysObject: IDispatch; aMy: WordBool);
C, C++	HRESULT CreateComplete(TIngeoSysObjectType aSysObjectType, IDispatch aSysObject, VARIANT_BOOL aMy);

Параметры

aSysObjectType

Тип системного объекта.

aSysObject

Системный объект.

aMy

Признак того, что данное событие возникло в результате выполнения операции в том процессе ИнГео, в котором выполняется модуль расширения.

Пример

sub DBSysObjects_CreateComplete(aSysObjectType, aSysObject)
s = "Cоздан"
if aSysObjectType = 0 then
   s = s & "а территория"
end if
if aSysObjectType = 1 then
   s = s & " справочник"
end if
if aSysObjectType = 2 then
   s = s & "а растровая карта"
end if
if aSysObjectType = 3 then
   s = s & "а векторная карта"
end if
if aSysObjectType = 4 then
   s = s & " слой"
end if
if aSysObjectType = 5 then
   s = s & " стиль"
end if
if aSysObjectType = 6 then
   s = s & "а семантическая таблица"
end if

s = s & " с именем " & aSysObject.Name
end sub