|
Программное создание кнопок | ☑ | ||
|---|---|---|---|---|
|
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) Да, создал команду, заработало
|
| Форум | Правила | Описание | Секции | Поиск |