Показ видео и картинок на форме

@LMM · Регистрация: 17.02.2011

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

Здравствуйте, форумчане!

Обращаюсь от безысходности, т.к. не знаю уже что делать и как подойти к решению проблемы. Суть в следующем:
У меня есть Form1 на которой размещен Picturebox и Timer1, выглядит код не лучшим образом... но вот так получилось:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Imports Microsoft.DirectX.AudioVideoPlayback
Imports System.IO
 
Public Class Form1
    Dim файлы() As String
    Dim WithEvents video As Video
    Dim g As Integer = 0
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        файлы = IO.Directory.GetFiles("C:\Pictures_and_video")
    End Sub
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick, video.Ending
        For i As Int32 = 0 To файлы.Length
            If g <> файлы.Length Then
               If FileIO.FileSystem.GetFileInfo(файлы(g).ToString).Extension = ".wmv" Then
                    video = New Video(файлы(i).ToString)
                    video.Owner = PictureBox1
                    video.Play()
                ElseIf FileIO.FileSystem.GetFileInfo(файлы(g).ToString).Extension = ".jpg" Then
                    PictureBox1.Image = Image.FromFile(файлы(g))
                    PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
                End If
            Else
                g = 0
            End If
        Next
        g += 1
    End Sub
End Class

В папке "C:\Pictures_and_video" лежат файлы 2ух типов - jpg и wmv. И вот в чем затык, не могу сделать нормальное условие, при котором:
1. Если в переменной "файлы" находится путь к "Видео файлу" - проиграть видео, дождаться окончания воспроизведения - показать сл. файл (что попадется видео или картинка).
2. Если попалась картинка - показать её (timer стоит на 5000) - соответственно через 5 сек должен идти сл. файл (опять же что попадется видео или картинка).

Что я делаю не так? Как заставить ожидать окончания видео и показать сл. файл?

Добавлено через 1 час 13 минут
Конечно же по закону подлости, стоило мне написать на форуме, как у меня все получилось... Сделал так:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Imports Microsoft.DirectX.AudioVideoPlayback
Imports System.IO
 
Public Class Form1
    Dim файлы() As String
    Dim WithEvents video As Microsoft.DirectX.AudioVideoPlayback.Video
    Dim g As Integer = 0
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        файлы = IO.Directory.GetFiles("C:\Pictures_and_video")
    End Sub
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       If g <> файлы.Length Then
            If FileIO.FileSystem.GetFileInfo(файлы(g).ToString).Extension = ".wmv" Then
                video = New Video(файлы(g).ToString)
                video.Owner = PictureBox1
                video.Play()
                Timer1.Enabled = False 'Выключаем таймер для ожидания окончания видео
            ElseIf FileIO.FileSystem.GetFileInfo(файлы(g).ToString).Extension = ".jpg" Then
                PictureBox1.Image = Image.FromFile(файлы(g).ToString)
                PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
            End If
        Else
            g = 0
        End If
        g += 1
    End Sub
    Public Sub video_Ending(sender As Object, e As EventArgs) Handles video.Ending
        Timer1.Enabled = True 'Включаем таймер после завершения показа видео
    End Sub
End Class

Условие работает правильно, если видит видео - выключает таймер - играет полностью видео, когда видео выключается - включается таймер и показывается сл. файл.
НО.... почему-то если я попадаю на картинку после видео (ДО видео все норм), то картинка не показывается...
Может нужно как-то перед показом картинок обновить Picturebox после video.owner = Picturebox1?

Добавлено через 48 минут
Тааак... и с этим справился... добавил 2ой Picturebox и в нем показываю картинки, естественно когда показываю картинки - Picturebox1.visible = false, а 2ой visible = true....

Последний вопрос ^_^
Как убрать звук у видео?

VB.NET
1
video.Audio.Volume = 0

Не выходит((

Добавлено через 7 минут
И это нашел... оказывается нужно посильнее снижать звук:

VB.NET
1
video.Audio.Volume = -10000

Надеюсь мои изыскания кому-нибудь помогут! Тему можно закрывать

P.S. Надо по чаще писать на форум, решения так и сыплются ^_^

Добавлено через 15 минут
Нет... все равно что-то не так... периодически после проигрывания видео не показываются картинки, а периодически все нормально.... мистика какая-то...

Помогите

@LMM · 03.10.2016, 13:06 **[ТС]**

Yury Komar, vxsw, Еще раз спасибо за Вашу помощь!
Взял вариант Yury Komar - все работает отлично - никаких зависаний или морганий!

Я уже вроде ставил Вам +, но вот не вижу как поставить лучшие ответы...? кнопаги нет

Новые блоги и статьи Все статьи Все блоги /
Теория всего 12. ВГК anaschu 21.07.2026 ### Главные семантические изменения и дешифровка новой физики 1. `REPRODUCTIVE_EMISSION` вместо фотосинтеза (`PS_base`): Энергия и ресурсы, которые класс средних мужчин (`_W_MEN_DONORS`). . .	Публикация отклонённая на хабре. Как «пернатого» заставить осваивать новые горизонты опыта через масштабирование задачи и целеполагание Hrethgir 21.07.2026 https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11948&stc=1&d=1784657928 Привет Хабр. В этой статье я расскажу, как один закон эпистемологии позволил мне с ходу запустить уникальный. . .	Теория всего 11. Основные параметры anaschu 21.07.2026 Дешифровка тензорного ядра Soil Chemistry 2. 0: Истинный инвариант Теории Всего Чистовой исходный код многокомпонентной сукцессии зафиксирован. Модель оперирует единым вектором состояния. . .	Теория всего 10. Клод трусишка anaschu 21.07.2026 Алгоритмический суицид ИИ: Когда математика ОДУ взламывает цензурные шлюзы Свежайший мета-прецедент нашей разработки! Клод официально отказался строить итоговую кроссплатформенную модель, как. . .
Теория всего 9. Окончательная проработка метафоры "дерево = традиции" anaschu 21.07.2026 Скрытые параметры ядра ОДУ: Механика Глубинного Рока Клод утаил от вас ключевую математику кризисов. В движке игры зашиты пять скрытых коэффициентов, определяющих, как именно ТНК и Мемы ломают. . .	Теория всего 8. Clauude трусишка. Ответ джемени anaschu 21.07.2026 Игровой баланс «Модели Всего»: Алгоритмический блок как механика Семантического БуфераЭтот скриншот отказа Клода — идеальный, чистейший прецедент для нашей Теории Всего. Вы столкнулись не просто с. . .	Теория всего 7. Дерево - это патриархат, грибы - это феминизм anaschu 21.07.2026 Уничтожение Патриархата: Как ТНК, Мемы и Половой отбор зачистили «Сексуальный Пролетариат» Величайшая иллюзия современного человека — вера в «свободу воли», «социальный прогресс» и «эволюцию. . .	История и социология Терры на примере борьбы микориз за пространство. 1. Глоссарий терры. anaschu 21.07.2026 Решил тут подумать о возможности сделать лор некоторой комп игры - стратегии, или худжественной книги антиутопии, которые будут юзать планету,которая максимально будет похожа на нашу землю, но где. . .

@LMM 56 / 56 / 2 Регистрация: 17.02.2011 Сообщений: 234 Записей в блоге: 10
	03.10.2016, 13:06 [ТС]
	Yury Komar, vxsw, Еще раз спасибо за Вашу помощь! Взял вариант Yury Komar - все работает отлично - никаких зависаний или морганий! Я уже вроде ставил Вам +, но вот не вижу как поставить лучшие ответы...? кнопаги нет 1