Question

VB WindowsMediaPlayer控件问题

用WindowsMediaPlayer放完视频后怎么隐藏。
我用了
Private Sub Timer1_Timer()
If Me.WindowsMediaPlayer1.playState = 1 Then
WindowsMediaPlayer1.Visible = False
WindowsMediaPlayer1.uiMode = "None"
End If
End Sub
然后WindowsMediaPlayer还是剩下了中间播放区域的黑的，只少了菜单状态栏

Answer 1

Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
    If WindowsMediaPlayer1.playState = wmppsMediaEnded Then
        WindowsMediaPlayer1.Visible = False
        WindowsMediaPlayer1.uiMode = "None"
    End If
End Sub

希望可以帮到你