如何从Form2调用Form1的PlayMaskVideo方法实现视频播放？

问题背景 #

在Form1中定义了以下公共方法PlayMaskVideo，用于通过VLCSharp播放视频：

Public Sub PlayMaskVideo(filePath As String)
    If File.Exists(filePath) Then
        If MaterialTabControl2.SelectedIndex = 0 Then Mask0Img.Visible = False

        If libVLC Is Nothing Then
            Core.Initialize()
            libVLC = New LibVLC()
        End If

        mediaPlayer = New MediaPlayer(libVLC)
        Mask0VLC.MediaPlayer = mediaPlayer

        media = New Media(libVLC, filePath, FromType.FromPath)
        media.AddOption("input-repeat=65535")
        mediaPlayer.Volume = 0
        mediaPlayer.Play(media)
    End If
End Sub

该方法在Form1内部调用时功能正常，但从Form2通过Form1.PlayMaskVideo(outputPreview)调用时，视频无法播放，且If MaterialTabControl2.SelectedIndex = 0 Then Mask0Img.Visible = False代码无执行效果。

核心原因 #

你在Form2中通过Form1.PlayMaskVideo调用的是Form1类的新实例，而非当前正在运行、显示在界面上的Form1窗口实例：

• 新创建的Form1实例未被显示，其控件（如MaterialTabControl2）处于初始状态（SelectedIndex默认不是0），因此隐藏Mask0Img的逻辑不会触发；
• 视频会在新实例的Mask0VLC控件中播放，但该实例未可视化，自然看不到播放效果；
• 极端情况下，新实例的控件可能未完成初始化，导致代码执行异常但未抛出可见错误。

解决方案 #

方案1：获取当前运行的Form1实例 #

通过Application.OpenForms集合找到已打开的Form1实例，再调用方法：

' 在Form2中调用的代码
Dim runningForm1 As Form1 = DirectCast(Application.OpenForms("Form1"), Form1)
runningForm1.PlayMaskVideo(outputPreview)

方案2：打开Form2时传递Form1实例 #

在Form1中打开Form2时，将自身实例传入Form2，后续直接使用该实例调用方法：

1. 修改Form1中打开Form2的代码：

' Form1中的打开逻辑
Dim form2 As New Form2(Me)
form2.Show()

2. 在Form2中添加字段保存Form1实例：

' Form2中的代码
Private targetForm1 As Form1

Public Sub New(form1Instance As Form1)
    InitializeComponent()
    targetForm1 = form1Instance
End Sub

3. 在Form2中调用方法：

targetForm1.PlayMaskVideo(outputPreview)

补充：确保UI线程安全（可选） #

如果调用操作是在非UI线程执行的，需要通过Invoke确保在Form1的UI线程中操作控件，避免跨线程异常：
修改Form1的PlayMaskVideo方法，增加线程检查：

Public Sub PlayMaskVideo(filePath As String)
    ' 检查是否需要跨线程调用
    If Me.InvokeRequired Then
        Me.Invoke(Sub() PlayMaskVideo(filePath))
        Return
    End If

    If File.Exists(filePath) Then
        If MaterialTabControl2.SelectedIndex = 0 Then Mask0Img.Visible = False

        If libVLC Is Nothing Then
            Core.Initialize()
            libVLC = New LibVLC()
        End If

        mediaPlayer = New MediaPlayer(libVLC)
        Mask0VLC.MediaPlayer = mediaPlayer

        media = New Media(libVLC, filePath, FromType.FromPath)
        media.AddOption("input-repeat=65535")
        mediaPlayer.Volume = 0
        mediaPlayer.Play(media)
    End If
End Sub

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