Имя: Пароль:
1C
1С v8
Программное создание кнопок
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) Да, создал команду, заработало
Здесь можно обсудить любую тему при этом оставаясь на форуме для 1Сников, который нужен для работы. Ymryn