Метод Remove (Объект IIngeoProjectContents)

Синтаксис

Язык	Описание
VBScript, JavaScript	SubRemove(aMapID)
Visual Basic	Sub Remove(ByVal aMapID As String)
Delphi	procedure Remove(const aMapID: WideString);
C, C++	HRESULT Remove(BSTR aMapID);

Параметры

aMapID

Идентификатор удаляемой карты.

Пример

Dim ProjectContents 

Dim MapCount, theMapID 



Set ProjectContents = Application.ActiveDb.Areas.Item(0).Projects.Item(0).Contents 


	
MapCount = ProjectContents.Count 

theMapID = ProjectContents.Item(MapCount-1) 



MsgBox "Сейчас карта " & theMapID & " будет удалена из территории." 

 ProjectContents.Remove theMapID 
 
if ProjectContents.Contains(theMapID) then 

   MsgBox "Карта " & theMapID & " прнадлежит территории." 

else 

   MsgBox "Карта " & theMapID & " не прнадлежит территории." 

end if 



MsgBox "Сейчас карта " & theMapID & " будет добавлена в территорию." 

ProjectContents.Add theMapID 
 
if ProjectContents.Contains(theMapID) then 

   MsgBox "Карта " & theMapID & " прнадлежит территории." 

else 

   MsgBox "Карта " & theMapID & " не прнадлежит территории." 

end if