GridItemCollection.Item Method

Синтаксис

Элемент(<Индекс>)

Параметры

Индекс (обязательный): Тип: Строка; Число.; Выражение, определяющее положение члена коллекции. Если выражение числовое, Индекс - индекс возвращаемого элемента сетки. Если Индекс является строковым выражением - метка элемента сетки.

Возвращаемое значение

Тип: ЭлементСетки (GridItem).

Объект ЭлементСетки (GridItem), расположенный по указанному индексу в пределах коллекции.

Описание

Возвращает объект ЭлементСетки (GridItem) по указанному индексу или метке элемента сетки.

Примечание

Важно: В системе отличной от семейства Windows данный метод неприменим.

Пример

Эл = СеткаСвойств1.ЭлементыСетки.Элемент(А);

Полный пример кода

Копировать     Выделить всё

Перем Ф, СеткаСвойств1, СчКатегория, КолИтераций, ГлубинаРаскрытияСвойств;

Процедура ЭлементыСетки()
	Для А = 0 По СеткаСвойств1.ЭлементыСетки.Количество - 1 Цикл
		КолИтераций = 0;
		Табулятор1 = "";
		Эл = СеткаСвойств1.ЭлементыСетки.Элемент(А);
		Если Эл.ЭлементыСетки.Количество > 0 Тогда
			Если Эл.ТипЭлементаСетки = 1 Тогда
				СчКатегория = СчКатегория + 1;
				Попытка
					Значение = Эл.Значение;
				Исключение
					Значение = "";
				КонецПопытки;
				Сообщить(Табулятор1 + СчКатегория + " = " + Эл.Надпись + " = " + Значение);
				ПодэлементыСетки(Эл, Табулятор1);
			КонецЕсли;
		КонецЕсли;
	КонецЦикла;
КонецПроцедуры

Процедура ПодэлементыСетки(Эл, Табулятор)
	КолИтераций = КолИтераций + 1;
	Табулятор1 = Табулятор + "    ";
	Для А = 0 По Эл.ЭлементыСетки.Количество - 1 Цикл
		Эл2 = Эл.ЭлементыСетки.Элемент(А);
		Попытка
			Значение = Эл2.Значение;
		Исключение
			Значение = "";
		КонецПопытки;
		Сообщить(Табулятор1 + А + " = " + Эл2.Надпись + " = " + Значение);
		Если КолИтераций > ГлубинаРаскрытияСвойств Тогда
		Иначе
			Если Эл2.ЭлементыСетки.Количество > 0 Тогда
				ПодэлементыСетки(Эл2, Табулятор1);
			КонецЕсли;
		КонецЕсли;
	КонецЦикла;
	КолИтераций = КолИтераций - 1;
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Ширина = 600;
Форма1.Высота = 400;
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

СеткаСвойств1 = Форма1.ЭлементыУправления.Добавить(Ф.СеткаСвойств());
СеткаСвойств1.ОтображатьПанельИнструментов = Истина;
СеткаСвойств1.Стыковка = Ф.СтильСтыковки.Заполнение;
СеткаСвойств1.ВыбранныйОбъект = Форма1;

ГлубинаРаскрытияСвойств = 3;
СчКатегория = -1;
ЭлементыСетки();

Ф.ЗапуститьОбработкуСобытий();

Тестовый код

Копировать     Выделить всё

Перем Ф, СеткаСвойств1, СчКатегория, КолИтераций, ГлубинаРаскрытияСвойств;

Процедура ЭлементыСетки()
	Для А = 0 По СеткаСвойств1.ЭлементыСетки.Количество - 1 Цикл
		КолИтераций = 0;
		Табулятор1 = "";
		Эл = СеткаСвойств1.ЭлементыСетки.Элемент(А);
		Если Эл.ЭлементыСетки.Количество > 0 Тогда
			Если Эл.ТипЭлементаСетки = 1 Тогда
				СчКатегория = СчКатегория + 1;
				Попытка
					Значение = Эл.Значение;
				Исключение
					Значение = "";
				КонецПопытки;
				// Сообщить(Табулятор1 + СчКатегория + " = " + Эл.Надпись + " = " + Значение);
				ПодэлементыСетки(Эл, Табулятор1);
			КонецЕсли;
		КонецЕсли;
	КонецЦикла;
КонецПроцедуры

Процедура ПодэлементыСетки(Эл, Табулятор)
	КолИтераций = КолИтераций + 1;
	Табулятор1 = Табулятор + "    ";
	Для А = 0 По Эл.ЭлементыСетки.Количество - 1 Цикл
		Эл2 = Эл.ЭлементыСетки.Элемент(А);
		Попытка
			Значение = Эл2.Значение;
		Исключение
			Значение = "";
		КонецПопытки;
		// Сообщить(Табулятор1 + А + " = " + Эл2.Надпись + " = " + Значение);
		Если КолИтераций > ГлубинаРаскрытияСвойств Тогда
		Иначе
			Если Эл2.ЭлементыСетки.Количество > 0 Тогда
				ПодэлементыСетки(Эл2, Табулятор1);
			КонецЕсли;
		КонецЕсли;
	КонецЦикла;
	КолИтераций = КолИтераций - 1;
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Ширина = 600;
Форма1.Высота = 400;
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

СеткаСвойств1 = Форма1.ЭлементыУправления.Добавить(Ф.СеткаСвойств());
СеткаСвойств1.ОтображатьПанельИнструментов = Истина;
СеткаСвойств1.Стыковка = Ф.СтильСтыковки.Заполнение;
СеткаСвойств1.ВыбранныйОбъект = Форма1;

ГлубинаРаскрытияСвойств = 3;
СчКатегория = -1;
ЭлементыСетки();

Сообщить(?(
СеткаСвойств1.ЭлементыСетки.Элемент(2).Надпись <> ""
, "", "!!! ") + "ЭлементыСетки.Элемент (GridItemCollection.Item) Метод" + " " + ТекущаяДата());