Отловить окончание воспроизведения видео

@godred2 · Регистрация: 30.11.2015

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

Как узнать когда закончится видео и закрыть форму?
Использую Microsoft.DirectX.AudioVideoPlayback.Video
https://msdn.microsoft.com/en-... 02629.aspx

@Yury Komar · 23.01.2016, 15:09

godred2,

Ending - Occurs when the playback is ending.

читайте литературу внимательнее

@godred2 · 23.01.2016, 17:28 **[ТС]**

Форумчане, как использовать это событие Ending для того чтобы узнать когда видео закончилось?
https://msdn.microsoft.com/en-... 02629.aspx

@Yury Komar · 23.01.2016, 18:02

попробую щас отвечу

Добавлено через 15 минут
godred2, вот так:

VB.NET

Imports Microsoft.DirectX.AudioVideoPlayback
Public Class Form1
    Dim WithEvents dxVideo As New Video("video.mp4")
 
    Sub VideoEnded() Handles dxVideo.Ending
        MsgBox("Video остановлено")
    End Sub
End Class

@godred2 · 23.01.2016, 18:16 **[ТС]**

Yury Komar, Спасибо, теперь пробую прикрутить это к своему коду

@Yury Komar · 23.01.2016, 18:22

godred2, можешь вместо отдельной процедуры просто добавить Хэндлера на FormClosing, ведь тебе надо закрыть окно при окончании воспроизведения.

VB.NET

Imports Microsoft.DirectX.AudioVideoPlayback
Public Class Form1
    Dim WithEvents dxVideo As New Video("video.mp4")
 
    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing, dxVideo.Ending
 
    End Sub
End Class

@godred2 · 23.01.2016, 20:14 **[ТС]**

Yury Komar,
Эх, попробовал...Не работает...
Вот мой код:

VB.NET

Imports Microsoft.DirectX.AudioVideoPlayback
 
Public Class Form3
    Dim plr As Video
    Dim file As String
 
    Private Sub Form3_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Me.Close()
        End
    End Sub
 
    Sub VideoEnded() Handles dxVideo.Ending
        End
    End Sub
 
    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.WindowState = FormWindowState.Maximized
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        Me.TopMost = True
        PictureBox1.MaximumSize = PictureBox1.Size
        PictureBox1.MinimumSize = PictureBox1.Size
        file = Application.StartupPath & "" & "vid.mp4"
        plr = New Video(file)
        plr.Owner = PictureBox1
        plr.Size = PictureBox1.Size
        plr.Play()
    End Sub
 
    Dim WithEvents dxVideo As New Video(Application.StartupPath & "" & "vid.mp4")
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) Handles Me.FormClosing, dxVideo.Ending
 
    End Sub
 
End Class

@Yury Komar · 23.01.2016, 20:23

Вы объявляете dxVideo а само видео запускаете в PLR... вы сами то понимаете что вы делаете?

Добавлено через 4 минуты
Замените строки 23,24,25,26 на это:

VB.NET

1
2
3

        dxVideo.Owner = PictureBox1
        dxVideo.Size = PictureBox1.Size
        dxVideo.Play()

@godred2 · 23.01.2016, 20:24 **[ТС]**

Yury Komar, Ахахахаах...Ухаахах... Я только что это понял...Вот прям миг назад... У меня ночь...

Код исправил...
Все работает! СПАСИБО

VB.NET

Imports Microsoft.DirectX.AudioVideoPlayback
 
Public Class Form3
    Dim WithEvents plr As Video
    Dim file As String
 
    Private Sub Form3_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Me.Close()
        End
    End Sub
 
    Sub VideoEnded() Handles plr.Ending
        End
    End Sub
 
    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.WindowState = FormWindowState.Maximized
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        Me.TopMost = True
        PictureBox1.MaximumSize = PictureBox1.Size
        PictureBox1.MinimumSize = PictureBox1.Size
        file = Application.StartupPath & "" & "vid.mp4"
        plr = New Video(file)
        plr.Owner = PictureBox1
        plr.Size = PictureBox1.Size
        plr.Play()
    End Sub
 
    ' Dim WithEvents dxVideo As New Video(Application.StartupPath & "" & "vid.mp4")
    Private Sub Form3_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) Handles Me.FormClosing, plr.Ending
 
    End Sub
 
End Class

@Yury Komar · 23.01.2016, 20:29

Ну или так

Добавлено через 3 минуты
Только вот это

VB.NET

1
2
3

Private Sub Form3_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) Handles Me.FormClosing, plr.Ending
 
    End Sub

И вот это

VB.NET

Private Sub Form3_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Me.Close()
        End
    End Sub

Здесь лишнее, получается масло масленное... удалите смело.

@godred2 · 23.01.2016, 20:32 **[ТС]**

Yury Komar, Знаю

Это я на этом проекте учусь новому просто

@Yury Komar · 23.01.2016, 20:34

godred2, ааа. Ну тогда понятно. Успехов в учёбе

@Yury Komar Модератор 4205 / 3288 / 498 Регистрация: 27.01.2014 Сообщений: 6,041
	23.01.2016, 20:34	12
	godred2, ааа. Ну тогда понятно. Успехов в учёбе 0

@godred2 9 / 9 / 3 Регистрация: 30.11.2015 Сообщений: 64
		1
	Отловить окончание воспроизведения видео 23.01.2016, 14:43. Показов 1356. Ответов 11 Метки нет (Все метки) Как узнать когда закончится видео и закрыть форму? Использую Microsoft.DirectX.AudioVideoPlayback.Video https://msdn.microsoft.com/en-... 02629.aspx 0

@Yury Komar Модератор 4205 / 3288 / 498 Регистрация: 27.01.2014 Сообщений: 6,041
	23.01.2016, 15:09	2
	godred2, Ending - Occurs when the playback is ending. читайте литературу внимательнее 0

@godred2 9 / 9 / 3 Регистрация: 30.11.2015 Сообщений: 64
	23.01.2016, 17:28 [ТС]	3
	Форумчане, как использовать это событие Ending для того чтобы узнать когда видео закончилось? https://msdn.microsoft.com/en-... 02629.aspx 0

@godred2 9 / 9 / 3 Регистрация: 30.11.2015 Сообщений: 64
	23.01.2016, 18:16 [ТС]	5
	Yury Komar, Спасибо, теперь пробую прикрутить это к своему коду 0

@godred2 9 / 9 / 3 Регистрация: 30.11.2015 Сообщений: 64
	23.01.2016, 20:32 [ТС]	11
	Yury Komar, Знаю Это я на этом проекте учусь новому просто 0

Отловить окончание воспроизведения видео

Решение