Коряво конечно, но главное работает с минимальными тормозами
Примерчик
Примерчик
Перем Min;
Перем Max;
Перем ИмяЭлемента;
Процедура
Кнопка1Нажатие(Элемент);
Min=0; //Начальный кадр
Max=10; //Конечный
ИмяЭлемента = Элемент.Имя;
ПодключитьОбработчикОжидания("ОбновитьКартинку", 1, Ложь); //Устанавливаем интервал в секундах
КонецПроцедуры Процедура
ОбновитьКартинку();
Если Min < Max Тогда
Min = Min+1; //Перемещаемся к след. кадру
СледующийКадр
(Min, "C:\1\", ".Bmp"); //Первый параметр указывает на то как называется файл след. кадра, второй на папку с этим файлом, третий на его расширение
КонецЕсли;
КонецПроцедуры
Процедура
СледующийКадр(Номер,Размещение,Расширение);
Результат = Размещение+Строка(Номер)+Расширение;
ЭлементыФормы.Найти(ИмяЭлемента).Картинка=Новый Картинка(Результат,Ложь);
КонецПроцедуры
В случае если же вы хотите использовать циклическую анимацию, то лучше воспользоваться стандартным свойством "Картинка" элемента формы и указать нужный вам GIF файл
Вступайте в нашу телеграмм-группу Инфостарт
