Windows Media Player VB.net

我在我的vb.net项目中有一个WMP，我想在第一个媒体完成后自动加载下一个媒体。我对googel做了一些研究，发现了下面简单易懂的代码

      Private Sub AxWindowsMediaPlayer1_PlayStateChange(ByVal sender As System.Object, ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange

If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Then
            AxWindowsMediaPlayer1.URL = ("Test2.mp4")
            MessageBox.Show("Playing End")
        End If
End Sub

但是，我不能让它自动播放下一个（Test2.mp4），除非我有messagebox弹出窗口。我发现这纯粹是偶然的。但是，我不希望每次播放新的Mp4文件时都弹出消息框。有人知道这里发生了什么吗？我怎样才能解决这个问题

Private Sub AxWindowsMediaPlayer1_PlayStateChange(ByVal sender As 
     System.Object, ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) 
         Handles AxWindowsMediaPlayer1.PlayStateChange

     If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Then
         AxWindowsMediaPlayer1.URL = ("Test2.mp4")
        'MessageBox.Show("Playing End") 'This line was commented because is not neccesary in  this fragment of code
    End If
End Sub

嗨，如果我对你很了解的话，你想取消留言框。它在做一个带有“'”的评论行。我希望你喜欢它，继续享受电脑和软件。非常感谢您，祝您愉快。：）

---

您好，请尝试使用此代码。它起作用了。深入研究Windows系统和子系统并非易事，至少对我来说并非如此。我希望你能得到你想要的软件。非常感谢你。快乐的编码！）

没有更好的解释，如果我运行代码时没有消息框，或者如果我按您的建议抑制消息框，Test2.mp4将不会播放。如果我添加messagebox，它将播放，但我希望它在不触发messagebox的情况下播放，这是不会发生的。可能您需要调用

AxWindowsMediaPlayer1.play（）

，而不是

messagebox

？尝试了没有工作，但没有按照。改为创建播放列表，或者创建一个

计时器

，以便从

队列

列表中退出队列并播放下一个媒体。如果我正确地遵循（我看不懂西班牙语），您现在提供的代码会自动为我单击消息框。。。我不想要任何消息框，我只想我的Mp4自动播放后，第一个Mp4是芬兰。它不会这样做。@放弃帐户，对不起，我不能这样做，也许有人能帮你得到你想要的东西。祝你好运！）感谢您的输入：）

Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    Dim oTask01 As Threading.Thread
    oTask01 = New Threading.Thread(AddressOf oStarting01)
    oTask01.Start()

    Dim omessagebox As MessageBox = Nothing
    omessagebox.Show("Playing End", "", MessageBoxButtons.OK)
    oTask01.Abort()

End Sub
Private Function oStarting01() As Byte
    While True
        System.Windows.Forms.SendKeys.SendWait(vbCr)
    End While
    Return 0
End Function
End Class