Примеры работы с командным интерфейсом программно

Материал содержит пошаговые примеры работы с командным интерфейсом программно: инициализация, создание командных кнопок, настройка команд, получение списка команд и создание пользовательских команд.

Инициализация командного интерфейса

&НаКлиенте
Процедура ИнициализацияКомандногоИнтерфейса()
    Интерфейс = ПолучитьОбъектКомандногоИнтерфейса();
    Интерфейс.Инициализировать();
КонецПроцедуры

Создание командной кнопки

&НаКлиенте
Процедура ДобавитьКоманднуюКнопку()
    Интерфейс = ПолучитьОбъектКомандногоИнтерфейса();
    Интерфейс.Команда("НоваяКнопка");
    Интерфейс.Команда("НоваяКнопка").Текст = "Нажми меня!";
    Интерфейс.Команда("НоваяКнопка").КомандаВыполнения = "Сообщить('Нажата кнопка!')";
КонецПроцедуры

Настройка командного интерфейса формы

&НаСервере
Процедура УстановитьКомандныйИнтерфейс(Форма)
    Интерфейс = ПолучитьОбъектКомандногоИнтерфейса(Форма);
    Интерфейс.Инициализировать();
    Интерфейс.Команда("НоваяКоманда").Текст = "Нажми меня!";
    Интерфейс.Команда("НоваяКоманда").КомандаВыполнения = "Сообщить('Нажата новая команда!')";
КонецПроцедуры

Получение списка команд интерфейса

&НаКлиенте
Процедура ПолучитьКомандыИнтерфейса()
    Интерфейс = ПолучитьОбъектКомандногоИнтерфейса();
    Команды = Интерфейс.Команды();
    Для Каждого Команда Из Команды Цикл
        Сообщить(Команда.Команда + " : " + Команда.Текст);
    КонецЦикла;
КонецПроцедуры

Настройка команды с параметрами

&НаКлиенте
Процедура НастроитьКомандныйПараметр()
    Интерфейс = ПолучитьОбъектКомандногоИнтерфейса();
    Интерфейс.Команда("КомандаСПараметром").Параметр("Параметр1").Значение = "Значение1";
    Интерфейс.Команда("КомандаСПараметром").Параметр("Параметр2").Значение = "Значение2";
КонецПроцедуры

Отображение командного интерфейса формы

&НаКлиенте
Процедура ПоказатьКомандныйИнтерфейс()
    Форма = СоздатьОбъект("Форма");
    Форма.Открыть();
    Интерфейс = ПолучитьОбъектКомандногоИнтерфейса(Форма);
    Интерфейс.Инициализировать();
КонецПроцедуры

Создание пользовательской команды

&НаКлиенте
Процедура ДобавитьПользовательскуюКоманду()
    Интерфейс = ПолучитьОбъектКомандногоИнтерфейса();
    Интерфейс.Команда("МояКоманда").Текст = "Моя команда";
    Интерфейс.Команда("МояКоманда").КомандаВыполнения = "Сообщить('Нажата моя команда!')";
КонецПроцедуры

Поделиться с друзьями
Smirnov code
Добавить комментарий