Воспроизведение GIF в параллельном потоке

@Ivan215 · Регистрация: 03.07.2014

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

Есть окно, информирующее пользователя о том что идет обработка данных. Поместил на форму GIF-картинку с часами.

Как сделать, чтобы часы шли?

@Ivan215 · 20.11.2015, 23:57 **[ТС]**

Куда воткнуть DoEvents, чтобы через определенный интервал скажем 100 msec шла прорисовка? Пробовал в Timer_Tick - не работает.

@Yury Komar · 21.11.2015, 11:06

Ivan215, вам надо в ссответствии с выполняющимся процессом проишрывать фрэймы или просто чтоб картинка двигалась?
Если просто, то в простой PictureBox.Image присвойте вашу GIF анимашку с часами и все.

Добавлено через 1 минуту
Или может пооще выполняющийся процесс запустить в отдельном потоку чтобы не тормозить основной поток вашей формы? Тогда и анимация будет играться и все что угодно без лагов

@Ivan215 · 21.11.2015, 14:25 **[ТС]**

Если просто, то в простой PictureBox.Image присвойте вашу GIF анимашку с часами и все.

Так картинка уже лежит в PictureBox-е. Во время выполнения процедуры - анимация отсутствует. А мне надо, чтобы картинка анимирировалась ВО ВРЕМЯ процесса.

Или может пооще выполняющийся процесс запустить в отдельном потоку

Вы не могли бы код конкретный предложить?

@Yury Komar · 21.11.2015, 18:56

Ivan215, вы бы для начала свой код выложили, писать с нуля не хочется...
И еще, эти часики - анимированное изображение GIF или просто картинка без анимации?
По-умолчанию GIF проигрывается в PictureBox автоматически... А у вас скорее всего происходит процесс, который очень грузит основной поток и он просто не успевает отрисовывать анимацию вашего GIF файла...
Ответ один, вынесите выполняющийся процес в отдельный поток и тогда анимашка будет работать.

Ссори за флуд, так думаю просто понятнее станет проблема.
Насчет потоков - отдельная тема и здесь на форуме очень много примеров на эту тему. поройтесь.

Памирыч · 21.11.2015, 19:44

Yury Komar верно говорит - лучше использовать потоки.

В следующем примере форма проводит фоновые операции, при этом анимация в PictureBox не прекращается

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
    Dim NewThread As Thread
 
    Sub ForNewThread()
        For I As Integer = 0 To 5
            Thread.Sleep(2000)
            IO.File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "" & I & ".txt", I)
        Next
        If PictureBox1.InvokeRequired Then
            PictureBox1.Invoke(New ThreadStart(AddressOf ForPB))
        End If
    End Sub
 
    Sub ForPB()
        PictureBox1.Refresh()
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        NewThread = New Thread(AddressOf ForNewThread)
        NewThread.IsBackground = True
        NewThread.Start()
    End Sub

@Ivan215 · 21.11.2015, 21:40 **[ТС]**

И еще, эти часики - анимированное изображение GIF или просто картинка без анимации?

Простите, Вы читаете проблему или нет? Я же ясно написал

Поместил на форму GIF-картинку с часами.

Если я пишу:

Как сделать, чтобы часы шли?

Наверное понятно, что GIF изображение - анимированное, иначе как часы могут "идти"?

Добавлено через 11 минут
Памирыч, спасибо за труд, но без комментариев Ваш пример недоступен для моего понимания (почти). Я всего три месяца юзаю VB.NET

Что касается моего кода он прост.

Привожу фрагмент процедуры.

VB.NET
1
2
3
4
5
        Call Shp(True, "Идет загрузка текущей выборки ...")
        
        Call Rd_DataSet_From_XML(DTS_GRD, Fnm, True, False, False)
 
        Call Shp(False)

Текст процедуры:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Public Sub Shp(ByRef Vs As Boolean, Optional ByRef Mes As String = "")
         If Vs Then
             Tme.Label1.Text = Mes
 
             Tme.Show()
 
             My.Application.DoEvents()
        Else
            Tme.Hide()
 
            My.Application.DoEvents()
        End If
 
    End Sub

Что касается формы с часами, то на ней всего два элемента управления

Label и PictureBox и все.

Что касается формы с часами, то на ней всего два элемента управления

Label и PictureBox и все.

Добавлено через 3 минуты
Форма Tme - это и есть формочка с часами и сообщением об активном процессе.

Памирыч · 21.11.2015, 22:12

Так, стоп. Обращения к пикчербоксу же не будет?
Если туда все заранее загружено, то его упоминать в коде не нужно

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
    Dim NewThread As Thread
 
    Sub ForNewThread()
        For I As Integer = 0 To 5
            Thread.Sleep(1000)
            IO.File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "" & I & ".txt", I)
        Next
        'If PictureBox1.InvokeRequired Then
        '    PictureBox1.Invoke(New ThreadStart(AddressOf ForPB))
        'End If
    End Sub
 
    'Sub ForPB()
    '    PictureBox1.Refresh()
    'End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        NewThread = New Thread(AddressOf ForNewThread)
        NewThread.IsBackground = True
        NewThread.Start()
    End Sub

Я закомментировал строки, которые не нужны.
В строке IO.File.WriteAllText есть пустота, обернутая двумя кавычками. Это форум съел обратный слеш \

Ivan215, не поленитесь, разберите мой код, он прост.
Создается поток, в нем выполняется процедура.
Надо будет передавать много параметров - это тоже решаемо. Но надо иметь хотя бы базовые познания, иначе я пояснить не смогу

Из Вашего кода я понял лишь, что форму вешает Rd_DataSet_From_XML. Вот ее и надо вызвать в потоке.

@Ivan215 · 21.11.2015, 22:26 **[ТС]**

Да нет, Памирыч, ВСЕ НАОБОРОТ.

Rd_DataSet_From_XML - Основная процедура и выполняется в основном потоке. А вот GIF надо анимировать во вспомогательном потоке.

Добавлено через 6 минут
Памирыч, вот переделал, чего в щах не хватает, поскольку GIF по-прежнему не анимируется:

VB.NET
1
2
3
4
5
        Call Shp2(True, "Идет загрузка текущей выборки ...")
        
        Call Rd_DataSet_From_XML(DTS_GRD, Fnm, True, False, False)
 
        Call Shp2(False)

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    Public Sub Shp2(ByRef Vs As Boolean, Optional ByRef Mes As String = "")
        If Vs Then
            If Tme.Pic1.InvokeRequired Then
                Tme.Pic1.Invoke(New System.Threading.ThreadStart(AddressOf ForPB))
            End If
        
            Tme.Label1.Text = Mes
 
            Tme.Show()
 
            My.Application.DoEvents()
        Else
            Tme.Hide()
 
            My.Application.DoEvents()
        End If
 
    End Sub

VB.NET
1
2
3
    Sub ForPB()
        Tme.Pic1.Refresh()
    End Sub

Памирыч · 21.11.2015, 22:54

Ivan215, легких путей не ищете

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    Sub Work()
        For I As Integer = 0 To 10
            Thread.Sleep(1000)
            IO.File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "" & I & ".txt", I)
        Next
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim th As System.Threading.Thread = New Threading.Thread(AddressOf Task_A)
        th.Start()
 
        Work()
    End Sub
 
 
    Public Sub Task_A()
       Application.Run(Form2)
    End Sub

Однако учтите, что основная форма отвечать не будет

@Ivan215 · 21.11.2015, 23:22 **[ТС]**

Да, видать не по уму мне эта проблема. Ну ладно, обойдемся без часиков.

Тема закрыта. Всем спасибо за участие.

@Yury Komar · 22.11.2015, 07:23

Ivan215, вам ведь указали на проблему. Зачем вам анимировать гифку в отдельгом потоке когда проще запустить в отдельном потоке тот метод, который и вешает всю форму основного потока?

Добавлено через 2 минуты
Вот в коде Памирыча есть процедурка, ее заполните своим кодом и примените в своем проекте этот код и все решится.

VB.NET
1
2
3
4
5
6
7
8
9
Sub ForNewThread()
        For I As Integer = 0 To 5
            Thread.Sleep(1000)
            IO.File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "" & I & ".txt", I)
        Next
        'If PictureBox1.InvokeRequired Then
        '    PictureBox1.Invoke(New ThreadStart(AddressOf ForPB))
        'End If
    End Sub

@Ivan215 · 22.11.2015, 16:11 **[ТС]**

Зачем вам анимировать гифку в отдельгом потоке когда проще запустить в отдельном потоке тот метод, который и вешает всю форму основного потока

Возвращаюсь к коду:

VB.NET
1
2
3
4
5
        Call Shp2(True, "Идет загрузка текущей выборки ...")
        
        Call Rd_DataSet_From_XML(DTS_GRD, Fnm, True, False, False)
 
        Call Shp2(False)

Rd_Dataset_From_XML - ресурсоемкая процедура основного функционала программы, во время выполнения которой пользователя желательно проинформировать, что компьютер НЕ ВИСИТ, а РАБОТАЕТ. А формочка с часами - это малюсенький объект, в котором и надо-то всего ничего - анимировать GIF.

А теперь скажите, логично ли основной функционал программы запускать во вспомогательном потоке, а вспомогательный пустяковый сервис (формочка с часиками) - запускать в основном потоке?

Вообщем, учитывая все вышесказанное, можно переформулировать проблему так: Необходимо во вспомогательном потоке запустить процедуру, обеспечивающую анимацию GIF-а в форме, информирующей пользователя о ходе некоего ресурсоемкого процесса. Адрес Gif-a - Tme.Pic1

Я не собираюсь, по причине нехватки времени постигать глубины многопоточности, и не собираюсь ее широко использовать. Поэтому, если кто-либо снизойдет к моему слабоумию до конкретного кода буду премного благодарен.

Относительно кода Памирыча

VB.NET
1
2
3
4
For I As Integer = 0 To 5
            Thread.Sleep(1000)
            IO.File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "" & I & ".txt", I)
        Next

Я в упор не пойму что делает этот цикл. И зачем что-то писать на диск. Разъясните если можно.

А самое лучшее готовый код с пояснениями. Думаю что необходимый код - простой и короткий.

@Yury Komar · 23.11.2015, 06:42

Ivan215, памирыч привел пример как повесить основной поток, симитировать вашу проблему и запустить в итоге этот тормоз в отдельном потоке чтобы гифка в основном потоке плавно анимировалась. Это пример...
А то что ресурсоемкую процедуру в другой поток выкинуть - это самое подходящее решение.
Как это сделать - уже приведено в пример и я говорит постом выше.
Не поленитесь и попробуйте, а уже потом вопросы будете задавать.

@Ivan215 · 23.11.2015, 16:06 **[ТС]**

А то что ресурсоемкую процедуру в другой поток выкинуть - это самое подходящее решение.

Ну да, давайте весь функционал программы пустим во вспомогательном потоке, а рефреширование формочки в основном. Я не практикую логику наоборот. Вы уж извините.

Добавлено через 21 минуту
И потом. У меня в программе таких мест - несколько десятков. И что, я каждый раз должен основную процедуру программы пускать во вспомогательном потоке вместо того, чтобы один единственный раз при старте программы запустить рефреширование формы во вспомогательном потоке?

@Yury Komar · 23.11.2015, 16:51

Ivan215, ьаким обоазом вы получите планый и красивый интерфейс не пугающий пользователей своими тормозами. Более того, после выпоонения процедуры, поток выгрузается и памяти и ничего страшного в этом нет...
Многопоточность - не есть плохо... Взять даже саму систему Windows, она вся многопоточная иначе вы бы получили один большой тормоз.!

Добавлено через 3 минуты
Еще одно, в самих ресурсоемких процедурах есть циклы типа Do...Loop и For...Next? Вставьте в тело цикла Application.DoEvents, это может решить вашу проблему, а не вызов её по кнопке...

@Ivan215 · 23.11.2015, 17:04 **[ТС]**

Yury Komar! Мне право немного странно. Скажите, в чем ТРУДНОСТЬ запуска рефреширования формы во вспомогательном потоке? Один раз - при старте программы. Мы в общем-то спорим ни о чем.

Еще одно, в самих ресурсоемких процедурах есть циклы типа Do...Loop и For...Next?

Во многих случаях нет никаких циклов - как например при чтении XML-файла с диска в Dataset, или при операциях с базой данных

@Yury Komar · 23.11.2015, 17:56

Ivan215, хорошо, не станем спорить, это ни к чему не приведет

Я предложил вариант, а использовать его или нет - это ваше право.

Памирыч · 23.11.2015, 19:16

Сообщение от Ivan215

в чем ТРУДНОСТЬ запуска рефреширования формы во вспомогательном потоке?

Трудностей нет, я Вам показал, как и это делается (пост 10)
Там в отдельном потоке вызывается только форма с гифкой, все остальные процедуры были и остаются в основном потоке формы, как и просили.
Вы хоть пробуйте то, что Вам пишут.

@Sklifosofsky · 23.11.2015, 20:04

Может грубо, но работает =)
PS. там очень жирная гифка
WindowsApplication27.rar

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@Ivan215 21 / 22 / 10 Регистрация: 03.07.2014 Сообщений: 398

	Воспроизведение GIF в параллельном потоке 20.11.2015, 22:22. Показов 8152. Ответов 91 Метки нет (Все метки) Есть окно, информирующее пользователя о том что идет обработка данных. Поместил на форму GIF-картинку с часами. Как сделать, чтобы часы шли? Миниатюры 0

@Ivan215 21 / 22 / 10 Регистрация: 03.07.2014 Сообщений: 398
	20.11.2015, 23:57 [ТС]
	Куда воткнуть DoEvents, чтобы через определенный интервал скажем 100 msec шла прорисовка? Пробовал в Timer_Tick - не работает. 0

@Yury Komar Модератор 4356 / 3426 / 512 Регистрация: 27.01.2014 Сообщений: 6,257
	21.11.2015, 11:06
	Ivan215, вам надо в ссответствии с выполняющимся процессом проишрывать фрэймы или просто чтоб картинка двигалась? Если просто, то в простой PictureBox.Image присвойте вашу GIF анимашку с часами и все. Добавлено через 1 минуту Или может пооще выполняющийся процесс запустить в отдельном потоку чтобы не тормозить основной поток вашей формы? Тогда и анимация будет играться и все что угодно без лагов 1

@Yury Komar Модератор 4356 / 3426 / 512 Регистрация: 27.01.2014 Сообщений: 6,257
	21.11.2015, 18:56
	Ivan215, вы бы для начала свой код выложили, писать с нуля не хочется... И еще, эти часики - анимированное изображение GIF или просто картинка без анимации? По-умолчанию GIF проигрывается в PictureBox автоматически... А у вас скорее всего происходит процесс, который очень грузит основной поток и он просто не успевает отрисовывать анимацию вашего GIF файла... Ответ один, вынесите выполняющийся процес в отдельный поток и тогда анимашка будет работать. Ссори за флуд, так думаю просто понятнее станет проблема. Насчет потоков - отдельная тема и здесь на форуме очень много примеров на эту тему. поройтесь. 1

@Ivan215 21 / 22 / 10 Регистрация: 03.07.2014 Сообщений: 398
	21.11.2015, 23:22 [ТС]
	Да, видать не по уму мне эта проблема. Ну ладно, обойдемся без часиков. Тема закрыта. Всем спасибо за участие. 0

@Yury Komar Модератор 4356 / 3426 / 512 Регистрация: 27.01.2014 Сообщений: 6,257
	23.11.2015, 06:42
	Ivan215, памирыч привел пример как повесить основной поток, симитировать вашу проблему и запустить в итоге этот тормоз в отдельном потоке чтобы гифка в основном потоке плавно анимировалась. Это пример... А то что ресурсоемкую процедуру в другой поток выкинуть - это самое подходящее решение. Как это сделать - уже приведено в пример и я говорит постом выше. Не поленитесь и попробуйте, а уже потом вопросы будете задавать. 1

@Yury Komar Модератор 4356 / 3426 / 512 Регистрация: 27.01.2014 Сообщений: 6,257
	23.11.2015, 16:51
	Ivan215, ьаким обоазом вы получите планый и красивый интерфейс не пугающий пользователей своими тормозами. Более того, после выпоонения процедуры, поток выгрузается и памяти и ничего страшного в этом нет... Многопоточность - не есть плохо... Взять даже саму систему Windows, она вся многопоточная иначе вы бы получили один большой тормоз.! Добавлено через 3 минуты Еще одно, в самих ресурсоемких процедурах есть циклы типа Do...Loop и For...Next? Вставьте в тело цикла Application.DoEvents, это может решить вашу проблему, а не вызов её по кнопке... 1

@Yury Komar Модератор 4356 / 3426 / 512 Регистрация: 27.01.2014 Сообщений: 6,257
	23.11.2015, 17:56
	Ivan215, хорошо, не станем спорить, это ни к чему не приведет Я предложил вариант, а использовать его или нет - это ваше право. 0

@Sklifosofsky 1085 / 915 / 213 Регистрация: 29.09.2015 Сообщений: 1,019
	23.11.2015, 20:04
	Может грубо, но работает =) PS. там очень жирная гифка WindowsApplication27.rar 1

Воспроизведение GIF в параллельном потоке

Решение