楼下代码妥妥的

Private Sub Form_Load()
WindowsMediaPlayer1.Move 0, 0, Screen.Width, Screen.Height
End Sub
。
Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
If (WindowsMediaPlayer1.playState = wmppsPlaying) Then
WindowsMediaPlayer1.fullScreen = True
ElseIf WindowsMediaPlayer1.playState = wmppsStopped Then
WindowsMediaPlayer1.URL = ""
WindowsMediaPlayer1.Visible = False
End If
End Sub

多关注一个人。我就多一点动力。 抱拳了

啦啦啦啦

昂

WindowsMediaPlayer1.URL = ""
这一句必须加上才有效