Воспроизведение GIF анимации в VB6

@MrRoxMJ · Регистрация: 15.05.2015

Студворк — интернет-сервис помощи студентам

Добрый день. Искал поиском по форуму, гуглил в интернете, но решения или примеров кода так и не нашел. Посему, вот тема:
Мне необходимо вставить показ анимированных GIF файлов на форме VB6, с последующей сменой демонстрируемых GIF файлов в контроле. Поскольку стандартные PictureBox и Image отображают GIF только в виде статичного первого кадра из анимации и для задачи не подходят (таймер + куча кадров - не наш метод), решил поискать решение в других контролах из комплекта VB6. И решение нашлось, но.... не такое как хотелось бы.

WebBrowser (компонент Microsoft Internet Controls)

Visual Basic
1
2
3
Private Sub Form_Load()
WebBrowser1.Navigate ("file:///" & App.Path & "/animation.gif")
End Sub

Показывает анимацию, через "..navigate.." в коде можно подменять файл на нужный когда потребуется.
Однако, несмотря на то, что размер поля контрола WebBrowser я растянул значительно больше размеров демонстрируемой картинки, поле WebBrowser всегда отображает полосы прокрутки. А мне этого не нужно.
Свойтво ScrollBars у контрола отсутствует. При этом свойствам - AddressBar, MenuBar, StatusBar (...логично подумать, если всё это повырубать, то вероятно, полосы прокрутки исчезнут) присвоить значение False невозможно. В окне Properties они снова возвращаются в True после первого же запуска. Присвоение этим свойствам False через строки кода тоже безрезультатно (никаких видимых изменений.)

Scriptlet (компонент Microsoft HTML Object Library)
Визуально данный контрол выглядит как PictureBox или Image. В окне Properties для свойства url указываем путь к файлу (например - file:///C:/....<путь>..../animation.gif ) и анимация отображается.
Однако, когда мне нужно сменить файл в поле контрола, компилятор выдаёт ошибку.
- Invalid use of property

Visual Basic
1
Scriptlet1.url ("file:///" & App.Path & "/animation.gif")

- 438: Object doesn't support this propertyor method.

Visual Basic
1
Scriptlet1.url = "file:///" & App.Path & "/animation.gif"

Поскажите как правильно присвоить текстом кода новое значение url без ошибок.

p.s.
Как вариант - вывалить на форму кучу контролов с разными GIF картинками по одной в каждом, и переключать их через свойство Visible... Работает, но это слишком уж убого-топорный вариант. Если не брать во внимание загромождение формы объектами, немаловажный момент - анимация в контролах никогда не останавливается. То есть при отображении/сокрытии будут непременно возникать моменты, когда текущий GIF файл уже воспроизводится где-то с середины.

@АБУ_БАКР 2 · 07.01.2021, 04:56

Argus19,
Да вы ребята просто мудрецы ВБ
Думаю с такими поддержками я тоже смогу продвинутся дальше спасибо вам ребятки надеюсь и в дальнейщем будете помогать.

Новые блоги и статьи Все статьи Все блоги /
Транслитерация текста с кириллицы на латиницу (вариант №2) Maks 13.11.2026 Обновленная версия ранее созданной обработки. Добавлено: - Проверка исходного текста на кириллицу, через обращение к стандартной функции "ТолькоКириллицаВСтроке" из общего модуля. . .	Часы с термометром и праздничным календарем yariko 12.11.2026 Сегодня мы рассмотрим как можно сделать отличные многофункциональные часы. Итак, поставим конкретную задачу: разработать часы с календарем, двумя термодатчиками, выводом поздравительных сообщений. . .	Транслитерация текста с кириллицы на латиницу (вариант №1) Maks 11.11.2026 Решил облегчить жизнь себе и коллегам админам при создании электронных почтовых ящиков для пользователей, в результате написал обработку "Транслитерация текста" с кириллицы на латиницу, а в ней. . .	Книги по геймдизайну, левел-дизайну, игровым механикам и проектированию игрового опыта 8Observer8 08.11.2026 Содержание блога \| English Version 1. 2003 - 06 - Designing Virtual Worlds (1st Edition) Автор: Richard A. Bartle \| Объем: 768 стр. Ссылки: Amazon . . .
Родители токсичные абьюзеры по отношению к своим детям ругают их оскорбляют не любят zorxor 08.11.2026 Жить в атмосфере постоянных оскорблений, критики и холодности со стороны родителей — это тяжелое и болезненное испытание, которое оставляет глубокие эмоциональные раны. Токсичное и абьюзивное. . .	Как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Ответ от Джемени ИИ. zorxor 08.11.2026 Джемени, как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Многие люди, возвращаясь домой, сразу переодеваются в максимально свободную одежду или вовсе предпочитают. . .	Паттерн очереди действий/команд (Action / Command Queue). Система очереди действий и кат-сцен с SDL3 Callbacks, cglm и OpenGL 8Observer8 07.11.2026 Содержание блога \| English Version Руководство для начинающих по реализации паттерна очереди действий/ команд (Action / Command Queue) на C++ (C++20) с использованием официального SDL3 Callbacks. . .	Проверка полного ФИО в типовом справочнике Maks 07.11.2026 Решение реализовано в конфигурации КА2, на примере справочника "КонтактныеЛицаПартнеров". Задача: Запрет инициалов. Не допускаеть использование сокращений вида "И. И. ", "И. И. ", "И И" и. . .

@АБУ_БАКР 2 1 / 1 / 0 Регистрация: 30.12.2019 Сообщений: 194
	07.01.2021, 04:56
	Argus19, Да вы ребята просто мудрецы ВБ Думаю с такими поддержками я тоже смогу продвинутся дальше спасибо вам ребятки надеюсь и в дальнейщем будете помогать. 0