КоллекцияПодменю.Получить (MenusCollection.Get) Метод

Синтаксис

Получить(<Индекс>)

Параметры

Индекс (обязательный)
Тип: Число.

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

Тип: ПунктМеню (MenuBarItem).

Описание

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

Примечание

Пример

Процедура ПриОткрытии() Экспорт
	КоллекцияПодменю = ПанельМеню1.ПодМеню;
	Стр = "";
	Для А = 0 По КоллекцияПодменю.Количество - 1 Цикл
		Стр = Стр + "
		|Подменю.Заголовок = " + КоллекцияПодменю.Получить(А).Заголовок;
	КонецЦикла;
	Окно1.Текст = "Для ПанельМеню1 созданы подменю:
	|" + Стр;
КонецПроцедуры
Полный пример кода 



Перем Текст, ПанельМеню1, Окно1;

Процедура ПриОткрытии() Экспорт
	КоллекцияПодменю = ПанельМеню1.ПодМеню;
	Стр = "";
	Для А = 0 По КоллекцияПодменю.Количество - 1 Цикл
		Стр = Стр + "
		|Подменю.Заголовок = " + КоллекцияПодменю.Получить(А).Заголовок;
	КонецЦикла;
	Окно1.Текст = "Для ПанельМеню1 созданы подменю:
	|" + Стр;
КонецПроцедуры

Процедура Файл_Нажатие() Экспорт
	Окно1.Текст = Текст + "Файл " + ТекущаяУниверсальнаяДатаВМиллисекундах();
КонецПроцедуры

Процедура Справка_Нажатие() Экспорт
	Окно1.Текст = Текст + "Справка " + ТекущаяУниверсальнаяДатаВМиллисекундах();
КонецПроцедуры

Процедура Открыть_Нажатие() Экспорт
	Окно1.Текст = Текст + "Открыть " + ТекущаяУниверсальнаяДатаВМиллисекундах();
КонецПроцедуры

Процедура Выход_Нажатие() Экспорт
	Окно1.Текст = Текст + "Выход " + ТекущаяУниверсальнаяДатаВМиллисекундах();
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll");
ТФ = Новый ТерминалФормыДляОдноСкрипта();

ПанельМеню1 = ТФ.ПанельМеню();
ТФ.Верхний.Добавить(ПанельМеню1);

ПунктМеню1 = ТФ.ПунктМеню();
ПунктМеню1.Заголовок = "Файл";
ПунктМеню1.Нажатие = ТФ.Действие(ЭтотОбъект, "Файл_Нажатие");
ПанельМеню1.ПодМеню.Добавить(ПунктМеню1);

ЭлементМеню1 = ТФ.ЭлементМеню();
ЭлементМеню1.Заголовок = "_Открыть";
ЭлементМеню1.Нажатие = ТФ.Действие(ЭтотОбъект, "Открыть_Нажатие");
ПунктМеню1.Элементы.Добавить(ЭлементМеню1);

ЭлементМеню2 = ТФ.ЭлементМеню();
ЭлементМеню2.Заголовок = "_Выход";
ЭлементМеню2.Подсказка = "Выход";
ЭлементМеню2.Нажатие = ТФ.Действие(ЭтотОбъект, "Выход_Нажатие");
ПунктМеню1.Элементы.Добавить(ЭлементМеню2);

ПунктМеню2 = ТФ.ПунктМеню();
ПунктМеню2.Заголовок = "Справка";
ПунктМеню2.Подсказка = "Справка";
ПунктМеню2.Нажатие = ТФ.Действие(ЭтотОбъект, "Справка_Нажатие");
ПанельМеню1.ПодМеню.Добавить(ПунктМеню2);

Окно1 = ТФ.Окно();
Окно1.Икс = ТФ.Позиция.Абсолютно(1);
Окно1.Игрек = ТФ.Позиция.Абсолютно(14);
Окно1.Ширина = ТФ.Величина.Процент(80);
Окно1.Высота = ТФ.Величина.Абсолютно(12);
ТФ.Верхний.Добавить(Окно1);

Текст = "Кликните по элементам панели меню.
|";

ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии");

ТФ.Запуск();

Тестовый код 



Перем Текст, ПанельМеню1, Окно1, Количество;

Процедура ПриОткрытии() Экспорт
	КоллекцияПодменю = ПанельМеню1.ПодМеню;
	Стр = "";
	Для А = 0 По КоллекцияПодменю.Количество - 1 Цикл
		Стр = Стр + "
		|Подменю.Заголовок = " + КоллекцияПодменю.Получить(А).Заголовок;
	КонецЦикла;
	Окно1.Текст = "Для ПанельМеню1 созданы подменю:
	|" + Стр;
	
	Количество = КоллекцияПодменю.Количество;
КонецПроцедуры

Процедура Файл_Нажатие() Экспорт
	Окно1.Текст = Текст + "Файл " + ТекущаяУниверсальнаяДатаВМиллисекундах();
КонецПроцедуры

Процедура Справка_Нажатие() Экспорт
	Окно1.Текст = Текст + "Справка " + ТекущаяУниверсальнаяДатаВМиллисекундах();
КонецПроцедуры

Процедура Открыть_Нажатие() Экспорт
	Окно1.Текст = Текст + "Открыть " + ТекущаяУниверсальнаяДатаВМиллисекундах();
КонецПроцедуры

Процедура Выход_Нажатие() Экспорт
	Окно1.Текст = Текст + "Выход " + ТекущаяУниверсальнаяДатаВМиллисекундах();
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll");
ТФ = Новый ТерминалФормыДляОдноСкрипта();

ПанельМеню1 = ТФ.ПанельМеню();
ТФ.Верхний.Добавить(ПанельМеню1);

ПунктМеню1 = ТФ.ПунктМеню();
ПунктМеню1.Заголовок = "Файл";
ПунктМеню1.Нажатие = ТФ.Действие(ЭтотОбъект, "Файл_Нажатие");
ПанельМеню1.ПодМеню.Добавить(ПунктМеню1);

ЭлементМеню1 = ТФ.ЭлементМеню();
ЭлементМеню1.Заголовок = "_Открыть";
ЭлементМеню1.Нажатие = ТФ.Действие(ЭтотОбъект, "Открыть_Нажатие");
ПунктМеню1.Элементы.Добавить(ЭлементМеню1);

ЭлементМеню2 = ТФ.ЭлементМеню();
ЭлементМеню2.Заголовок = "_Выход";
ЭлементМеню2.Подсказка = "Выход";
ЭлементМеню2.Нажатие = ТФ.Действие(ЭтотОбъект, "Выход_Нажатие");
ПунктМеню1.Элементы.Добавить(ЭлементМеню2);

ПунктМеню2 = ТФ.ПунктМеню();
ПунктМеню2.Заголовок = "Справка";
ПунктМеню2.Подсказка = "Справка";
ПунктМеню2.Нажатие = ТФ.Действие(ЭтотОбъект, "Справка_Нажатие");
ПанельМеню1.ПодМеню.Добавить(ПунктМеню2);

Окно1 = ТФ.Окно();
Окно1.Икс = ТФ.Позиция.Абсолютно(1);
Окно1.Игрек = ТФ.Позиция.Абсолютно(14);
Окно1.Ширина = ТФ.Величина.Процент(80);
Окно1.Высота = ТФ.Величина.Абсолютно(12);
ТФ.Верхний.Добавить(Окно1);

Текст = "Кликните по элементам панели меню.
|";

ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии");
ТФ.ЗапуститьИЗавершить();

Сообщить(?(
Количество = 2
, "", "!!! ") + "КоллекцияПодменю.Получить (MenusCollection.Get) Метод" + " " + ТекущаяДата() + Символы.ПС);

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

Библиотека OneScriptTerminalGui