Windows Media Player VB.net

Question

我在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）。我纯粹是偶然发现的。但是，我不希望每次准备播放新的Mp4文件时都弹出消息框。有人知道这里发生了什么，我该如何解决？

Answer 1

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

[嗨，如果我对您理解很好，您想抑制该消息框。它必须在注释行中加上“'”。希望您喜欢它，并继续使用计算机和软件。非常感谢，并祝您愉快。 :)

Answer 2

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

    Dim ohebra1 As Threading.Thread
    ohebra1 = New Threading.Thread(AddressOf oComienzo)
    ohebra1.Start()

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

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

[嗨，尝试使用此代码。有用。在Windows系统和子系统中更深入地研究并不是一件容易的事，至少对我而言并非如此。我希望您能得到想要的软件。非常感谢你。祝您满意！ :)