Question

VB如何判断WMP是否播放完毕

一个视频播放完后，想让它隐藏。还有，我想让视频全屏播放，怎么让下面的一堆东西小时？

Answer 1

Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
If Option1.Value = True Then '如果循环播放选框被选择
Select Case NewState '设定重新开始播放的环境
Case Is = wmppsMediaEnded '当播放结束时
me.hide

Case Is = wmppsPlaying '当播放时
WindowsMediaPlayer1.fullScreen = True '全屏
End Select
End If
End Sub