Каталог решений - Анимация для элементов форм в 1С 8.1

Анимация для элементов форм в 1С 8.1

Анимация для элементов форм в 1С 8.1

В наличии

Для тех кто еще ломает голову как создать анимированную кнопку, или что нибудь еще

Категория:

Описание

Коряво конечно, но главное работает с минимальными тормозами

Примерчик

Перем Min;
Перем Max;
Перем ИмяЭлемента;
Процедура

Кнопка1Нажатие(Элемент);
Min=0;  //Начальный кадр 

Max=10; //Конечный 

ИмяЭлемента = Элемент.Имя;
ПодключитьОбработчикОжидания("ОбновитьКартинку", 1, Ложь); //Устанавливаем интервал в секундах 
КонецПроцедуры Процедура 

ОбновитьКартинку();
Если Min < Max Тогда 

Min = Min+1;           //Перемещаемся к след. кадру 

СледующийКадр

(Min, "C:\1\", ".Bmp"); //Первый параметр указывает на то как называется файл след. кадра, второй на папку с этим файлом, третий на его расширение
КонецЕсли;
КонецПроцедуры
Процедура

СледующийКадр(Номер,Размещение,Расширение);
Результат = Размещение+Строка(Номер)+Расширение;

ЭлементыФормы.Найти(ИмяЭлемента).Картинка=Новый Картинка(Результат,Ложь);
КонецПроцедуры 
has been added to your cart:
Оформление заказа