Иногда бывает, что нужно вставить кнопку в форму программно. Как это можно реализовать в 1с 8.х
Мы хотим на Панель ОсновныеДействияФормы поместить новую кнопку
Мы хотим на Панель ОсновныеДействияФормы поместить новую кнопку
Процедура ПередОткрытием(Отказ, СтандартнаяОбработка) Если ЭлементыФормы.ОсновныеДействияФормы.Кнопки.Найти("ИмяКнопки")=Неопределено Тогда // проверяем: есть ли уже такая кнопка? ТипКнопки = ТипКнопкиКоманднойПанели.Действие; ДействиеКнопки = Новый Действие("ОсновныеДействияФормыНазваниеИмяКнопки"); КнопкиФормы =ЭлементыФормы.ОсновныеДействияФормы.Кнопки; НоваяКнопка =КнопкиФормы.Добавить("ИмяКнопки",ТипКнопки,"Имя Кнопки",ДействиеКнопки); НоваяКнопка.Картинка = БиблиотекаКартинок.ПиктограммаВашейКнопки; НоваяКнопка.Отображение = ОтображениеКнопкиКоманднойПанели.Картинка; // можно выбрать другие варианты "Авто", "Надпись" или "Надпись и Картинка" КнопкиФормы.Сдвинуть(НоваяКнопка,(-1)*КнопкиФормы.Количество()-1); // сдвигаем кнопку в крайнее правое положение КонецЕсли; КонецПроцедуры КонецПроцедуры
Программно добавлена кнопка с изображением значка Word |
Комментариев нет:
Отправить комментарий