一个简单的DX视频播放示例

如果你安装过 DirectX SDK，那么可以在工程中引用DX类库
一般位于 C:\Windows\Microsoft.NET\DirectX for Managed Code\1.0.2902.0 文件中

在这个示例中我们只需要引用
Microsoft.DirectX.dll
Microsoft.DirectX.AudioVideoPlayback.dll
这两个文件

Imports Microsoft.DirectX
Imports Microsoft.DirectX.AudioVideoPlayback

Public Class Form1

    Dim vod As Video

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim fp As String = "视频文件路径.mp4"

        If vod IsNot Nothing AndAlso vod.Playing Then
            vod.Stop()
        End If

        vod = New Video(fp)

        ' 选择视频容器
        vod.Owner = Me
        'vod.Owner.Width = Me.Width
        'vod.Owner.Height = Me.Height

        ' -10000静音，0最大音
        vod.Audio.Volume = -10000

        vod.Play()

    End Sub
End Class