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

Синтаксис

Язык	Описание
VBScript, JavaScript	FunctionContains(aMapID)
Visual Basic	Function Contains(ByVal aMapID As String) As Boolean
Delphi	function Contains(const aMapID: WideString): WordBool;
C, C++	HRESULT Contains(BSTR aMapID, VARIANT_BOOL* Value);

Параметры

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