ЭлементыМеню.Добавить (MenuItemCollection.Add) Метод

Синтаксис

Добавить(<Элемент>)

Параметры

Элемент (обязательный)
Тип: ЭлементМеню (MenuItem).
Добавляемый объект ЭлементМеню (MenuItem).

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

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

Объект ЭлементМеню (MenuItem), который был добавлен в коллекцию.

Описание

Добавляет ранее созданный ЭлементМеню (MenuItem) в конец текущего меню.

Примечание

Пример

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

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


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

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

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

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

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

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

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

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

Тестовый код 

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


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

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

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

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

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

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

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

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

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

ЭлементыМеню (MenuItemCollection) Класс | Библиотека OneScriptForms