MediaElement仅播放音频无画面且不触发事件问题排查

为大型VB.NET Windows Forms应用添加视频播放功能，先在独立项目中编写测试代码：项目包含Module1模块与Form1窗体，Form1无额外控件且尺寸匹配测试视频，启动入口为Module1的Sub Main。

按以下步骤操作：

1. 向窗体添加ElementHost；
2. 将MediaElement设为ElementHost的子控件；
3. 手动配置MediaElement属性以播放视频；
4. 启动播放。

运行后出现以下问题：

• 无视频画面，但可正常听到音频
• 视频能播放至结束，但MediaElement的所有事件均未触发
• 窗体显示忙碌鼠标指针与白屏
• 测试视频可通过Windows Media Player正常播放，问题在Windows 7、10、11系统均一致复现

测试代码如下：

Public Sub Main()
    Dim ElementHost As System.Windows.Forms.Integration.ElementHost
    Dim flag00 As Boolean
    Dim HostForm As Form1
    Dim MediaElement As System.Windows.Controls.MediaElement
    Dim Uri As System.Uri

    HostForm = New Form1
    HostForm.BackColor = System.Drawing.Color.Black
    HostForm.ForeColor = System.Drawing.Color.Black

    ElementHost = New System.Windows.Forms.Integration.ElementHost
    ElementHost.BackColor = System.Drawing.Color.Black
    ElementHost.ForeColor = System.Drawing.Color.Black
    ElementHost.Dock = System.Windows.Forms.DockStyle.Fill
    ElementHost.Height = HostForm.Height
    ElementHost.Width = HostForm.Width

    MediaElement = New System.Windows.Controls.MediaElement
    AddHandler MediaElement.MediaFailed, AddressOf MediaFailedEvent
    AddHandler MediaElement.MediaOpened, AddressOf MediaOpenedEvent
    AddHandler MediaElement.MediaEnded, AddressOf MediaEndedEvent
    MediaElement.Height = ElementHost.Height
    MediaElement.Width = ElementHost.Width
    MediaElement.LoadedBehavior = Windows.Controls.MediaState.Manual
    MediaElement.UnloadedBehavior = Windows.Controls.MediaState.Manual
    MediaElement.Visibility = Windows.Visibility.Visible
    ElementHost.Child = MediaElement
    HostForm.Controls.Add(ElementHost)

    Uri = New System.Uri("c:\temp\x.mp4", System.UriKind.Absolute)
    MediaElement.Source = Uri
    flag00 = MediaElement.HasVideo
    ElementHost.Visible = True
    HostForm.Show()
    ElementHost.BringToFront()
    MediaElement.Play()
    flag00 = MediaElement.IsLoaded
    While Not (flag00)
        flag00 = MediaElement.IsLoaded
    End While
End Sub

Private Sub MediaEndedEvent(ByVal Sender As Object, ByVal e As System.Windows.ExceptionRoutedEventArgs)
    Dim string00 As String
    string00 = e.ErrorException.Message
End Sub

Private Sub MediaFailedEvent(ByVal Sender As Object, ByVal e As System.Windows.ExceptionRoutedEventArgs)
    Dim string00 As String
    string00 = e.ErrorException.Message
End Sub

Private Sub MediaOpenedEvent(ByVal Sender As Object, ByVal e As System.Windows.ExceptionRoutedEventArgs)
    Dim string00 As String
    string00 = e.ErrorException.Message
End Sub

End Module

1. UI线程被阻塞：代码末尾的While Not (flag00)死循环彻底占用WinForms UI线程，导致WPF控件无法完成渲染、事件无法分发，直接引发白屏和忙碌指针。
2. 缺少WPF消息循环支持：WPF控件依赖Dispatcher消息循环处理渲染和事件，纯WinForms的Sub Main默认只启动WinForms消息循环，无法支撑WPF控件正常工作。
3. 事件绑定参数错误：
   • MediaOpened、MediaEnded事件的参数类型为RoutedEventArgs，不是ExceptionRoutedEventArgs
     参数不匹配导致事件处理器无法被正确触发。
4. 冗余尺寸设置：ElementHost已设置DockStyle.Fill，手动指定宽高属于冗余操作，可能引发布局冲突。

步骤1：添加WinForms消息循环 #

使用System.Windows.Forms.Application.Run()启动WinForms消息循环，确保UI线程正常处理所有消息（包括WPF控件所需的Dispatcher事件）。

步骤2：修复事件参数类型 #

修正事件处理器的参数，匹配MediaElement的官方事件定义：

• MediaOpened、MediaEnded → RoutedEventArgs
• MediaFailed → ExceptionRoutedEventArgs

步骤3：移除阻塞线程的死循环 #

依靠MediaOpened事件确认视频加载完成，避免在UI线程执行同步等待逻辑。

步骤4：优化布局设置 #

移除ElementHost和MediaElement的手动宽高设置，依赖DockStyle.Fill和WPF自动布局适配尺寸。

Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Forms.Integration

Module Module1
    Public Sub Main()
        Dim HostForm As New Form1()
        HostForm.BackColor = Drawing.Color.Black

        Dim ElementHost As New ElementHost()
        ElementHost.Dock = DockStyle.Fill
        ElementHost.BackColor = Drawing.Color.Black

        Dim MediaElement As New MediaElement()
        ' 绑定正确的事件处理器
        AddHandler MediaElement.MediaFailed, AddressOf MediaFailedEvent
        AddHandler MediaElement.MediaOpened, AddressOf MediaOpenedEvent
        AddHandler MediaElement.MediaEnded, AddressOf MediaEndedEvent

        MediaElement.LoadedBehavior = MediaState.Manual
        MediaElement.UnloadedBehavior = MediaState.Manual
        MediaElement.Stretch = Media.Stretch.Uniform ' 确保视频适配控件尺寸
        ElementHost.Child = MediaElement
        HostForm.Controls.Add(ElementHost)

        ' 设置视频源
        Dim videoUri As New Uri("c:\temp\x.mp4", UriKind.Absolute)
        MediaElement.Source = videoUri

        ' 启动WinForms消息循环，这是关键
        HostForm.Show()
        MediaElement.Play()
        Application.Run(HostForm)
    End Sub

    ' MediaOpened事件参数为RoutedEventArgs
    Private Sub MediaOpenedEvent(sender As Object, e As RoutedEventArgs)
        Console.WriteLine("视频已打开")
    End Sub

    ' MediaEnded事件参数为RoutedEventArgs
    Private Sub MediaEndedEvent(sender As Object, e As RoutedEventArgs)
        Console.WriteLine("视频播放结束")
    End Sub

    ' MediaFailed事件参数为ExceptionRoutedEventArgs
    Private Sub MediaFailedEvent(sender As Object, e As ExceptionRoutedEventArgs)
        Console.WriteLine($"播放失败: {e.ErrorException.Message}")
    End Sub
End Module

• 确保项目引用以下程序集：
  • WindowsFormsIntegration
  • PresentationFramework
  • PresentationCore
  • WindowsBase
• 若视频仍无画面，检查MediaElement的Stretch属性，推荐使用Uniform或Fill适配控件尺寸；
• 禁止在UI线程执行长时间同步操作，所有等待逻辑需通过Dispatcher异步处理。

内容的提问来源于stack exchange，提问作者DumbestGuyOnSaturn