Меню.ЭлементыМеню (Menu.MenuItems) Метод

Синтаксис

Строки(<Индекс>)

Параметры

Индекс (обязательный)
Тип: Число.
Индексированное местоположение ЭлементМеню (MenuItem) в коллекции.

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

Тип: ЭлементМеню (MenuItem).

Описание

Извлекает ЭлементМеню (MenuItem) по указанному индексу в коллекции.

Примечание

Пример

Эл = Подменю_Справка.ЭлементыМеню(0);
Полный пример кода 

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


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

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

ГлавноеМеню1 = Ф.ГлавноеМеню();
Элементы = ГлавноеМеню1.ЭлементыМеню;
Подменю_Файл = Элементы.Добавить(Ф.ЭлементМеню("Файл"));
Подменю_Справка  = Элементы.Добавить(Ф.ЭлементМеню("Справка"));

Элементы = Подменю_Файл.ЭлементыМеню;
Подменю_Файл_Новый = Элементы.Добавить(Ф.ЭлементМеню("Новый", Ф.Действие(ЭтотОбъект, "Новый_Нажатие"), Ф.СочетаниеКлавиш.ShiftF10));
Подменю_Файл_Открыть = Элементы.Добавить(Ф.ЭлементМеню("Открыть", , Ф.СочетаниеКлавиш.ShiftF11));
Подменю_Файл_Сохранить = Элементы.Добавить(Ф.ЭлементМеню("Сохранить"));
Подменю_Файл_СохранитьКак = Элементы.Добавить(Ф.ЭлементМеню("Сохранить как..."));
Подменю_Файл_Выход = Элементы.Добавить(Ф.ЭлементМеню("Выход"));

Элементы = Подменю_Справка.ЭлементыМеню;
Подменю_Справка_Справка = Элементы.Добавить(Ф.ЭлементМеню("Справка"));
Подменю_Справка_Опрограмме = Элементы.Добавить(Ф.ЭлементМеню("О программе..."));

Элементы = Подменю_Файл_СохранитьКак.ЭлементыМеню;
Подменю_Файл_СохранитьКак_Файл_txt = Элементы.Добавить(Ф.ЭлементМеню("Файл *.txt"));
Подменю_Файл_СохранитьКак_Файл_rtf = Элементы.Добавить(Ф.ЭлементМеню("Файл *.rtf"));

Форма1.Меню = ГлавноеМеню1;

Эл = Подменю_Справка.ЭлементыМеню(0);
Сообщить("" + Эл.Текст);

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

Тестовый код 

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


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

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

ГлавноеМеню1 = Ф.ГлавноеМеню();
Элементы = ГлавноеМеню1.ЭлементыМеню;
Подменю_Файл = Элементы.Добавить(Ф.ЭлементМеню("Файл"));
Подменю_Справка  = Элементы.Добавить(Ф.ЭлементМеню("Справка"));

Элементы = Подменю_Файл.ЭлементыМеню;
Подменю_Файл_Новый = Элементы.Добавить(Ф.ЭлементМеню("Новый", Ф.Действие(ЭтотОбъект, "Новый_Нажатие"), Ф.СочетаниеКлавиш.ShiftF10));
Подменю_Файл_Открыть = Элементы.Добавить(Ф.ЭлементМеню("Открыть", , Ф.СочетаниеКлавиш.ShiftF11));
Подменю_Файл_Сохранить = Элементы.Добавить(Ф.ЭлементМеню("Сохранить"));
Подменю_Файл_СохранитьКак = Элементы.Добавить(Ф.ЭлементМеню("Сохранить как..."));
Подменю_Файл_Выход = Элементы.Добавить(Ф.ЭлементМеню("Выход"));

Элементы = Подменю_Справка.ЭлементыМеню;
Подменю_Справка_Справка = Элементы.Добавить(Ф.ЭлементМеню("Справка"));
Подменю_Справка_Опрограмме = Элементы.Добавить(Ф.ЭлементМеню("О программе..."));

Элементы = Подменю_Файл_СохранитьКак.ЭлементыМеню;
Подменю_Файл_СохранитьКак_Файл_txt = Элементы.Добавить(Ф.ЭлементМеню("Файл *.txt"));
Подменю_Файл_СохранитьКак_Файл_rtf = Элементы.Добавить(Ф.ЭлементМеню("Файл *.rtf"));

Форма1.Меню = ГлавноеМеню1;

Эл = Подменю_Справка.ЭлементыМеню(0);

Сообщить(?(
Эл.Текст = "Справка"
, "", "!!! ") + "Меню.ЭлементыМеню (Menu.MenuItems) Метод" + " " + ТекущаяДата());

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

Меню (Menu) Класс | Библиотека OneScriptForms