ЭлементыМеню.Индекс (MenuItemCollection.IndexOf) Метод

Синтаксис

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

Параметры

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

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

Тип: Число.

Отсчитываемый от нуля индекс элемента, найденного в коллекции; в противном случае -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;

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

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

Тестовый код 

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


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

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

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

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

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

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

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

Индекс = ГлавноеМеню1.ЭлементыМеню.Индекс(Подменю_Файл);

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

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

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