|
Программное создание кнопок |
☑ |
0
sqr4
23.09.13
✎
13:05
|
&НаКлиенте
Процедура КомандаДляКнопок(Элемент)
Кнопка = ЭтаФорма.ТекущийЭлемент;
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = "Нажата "+Кнопка.Имя;
Сообщение.Сообщить();
КонецПроцедуры
&НаСервере
Процедура СоздатьКнопкиНаСервере();
ОбъектН = Новый COMОбъект("Scripting.FileSystemObject");
Индекс = 1;
Для Каждого Drive Из ОбъектН.Drives Цикл
Если Drive.DriveType = 1 Тогда
Имя = "Кнопка"+Индекс;
НоваяКнопка = Элементы.Добавить(Имя,Тип("КнопкаФормы"),Элементы.Группа5);
НоваяКнопка.Вид = ВидКнопкиФормы.ОбычнаяКнопка;
НоваяКнопка.Заголовок = "Drive.path";
НоваяКнопка.ИмяКоманды = "КомандаДляКнопок";
Индекс = Индекс + 1;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Пишет
{Форма.Форма.Форма(55)}: Ошибка при установке значения атрибута контекста (ИмяКоманды)
НоваяКнопка.ИмяКоманды = "КомандаДляКнопок";
по причине:
Недопустимое значение
не могу поняь почему
|
|
1
Zamestas
23.09.13
✎
13:14
|
(0) Команда <> обработчик команды.
|
|
2
sqr4
23.09.13
✎
13:18
|
(1) +
|
|
3
Fish
гуру
23.09.13
✎
13:20
|
(0) Ты тотал коммандер на 1С пишешь что ли?
|
|
4
sqr4
23.09.13
✎
13:23
|
Я руки пристроил к тому месту к которому их пристраивать не стоит) И не могу оторваться. А так да.
|
|
5
Franchiser
гуру
23.09.13
✎
13:23
|
Это что кнопки с серверными дисками получаются?
|
|
6
sqr4
23.09.13
✎
13:25
|
(5) +, надо поправить
|
|
7
skunk
23.09.13
✎
13:29
|
НоваяКнопка.ИмяКоманды = Новый Действие("КомандаДляКнопок");
|
|
8
Zamestas
23.09.13
✎
13:30
|
(2) Заработало?
КФ = ЭтаФорма.Команды.Добавить("КнопкаНажатие");
КФ.Действие = "Команда1";
Элемент = ЭтаФорма.Элементы.Добавить("Кнопка1", Тип("КнопкаФормы"));
Элемент.Вид = ВидКнопкиФормы.ОбычнаяКнопка;
Элемент.ИмяКоманды = "Команда1";
&НаКлиенте
Процедура Команда1(Команда)
ЭтаФорма.Закрыть();
КонецПроцедуры
Рабочий код
|
|
9
sqr4
23.09.13
✎
13:30
|
(7) Да, создал команду, заработало
|
|