ЭлементыСетки.Количество (GridItemCollection.Count) Свойство

Использование

Только чтение.

Значение

Тип: Число.

Возвращает число элементов сетки в коллекции.

Примечание

Важно: В системе отличной от семейства 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.ЭлементыСетки.Количество > 0
, "", "!!! ") + "ЭлементыСетки.Количество (GridItemCollection.Count) Свойство" + " " + ТекущаяДата());

Смотрите также

ЭлементыСетки (GridItemCollection) Класс | Библиотека OneScriptForms