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

Синтаксис

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

Параметры

aSysObjectType

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

aSysObject

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

Пример

sub DBSysObjects_WillCreate(aSysObjectType, aSysObject)
s = "Будет создан"
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

См.также

TIngeoSysObjectType