WindowsMediaPlayer全屏播放问题
Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
Select Case NewState
Case wmppsPlaying
'全屏播放
WindowsMediaPlayer1.fullScreen = True

Case wmppsMediaEnded
'播放结束后，继续播放下一个
'PlayNextMedia 函数 ：根据保存在ListBox中的文件列表，播放下一个
Call PlayNextMedia
End Select
End Sub

上面的代码，每次播放完一个视频后就会退出全屏，然后播放下一个的时候又全屏，
这样就会有很明显的闪动，能否做到播放完毕后不退出全屏？

[解决办法]
1、你每播放一个视频后，不要用close关闭媒体，直接加载下一视频；
2、播放下一视频时，判断一下这个值：WindowsMediaPlayer1.fullScreen，如果为true，就不需要再全屏了。
[解决办法]
楼主可以这样试试,就是在检测到目标文件播放到了倒数第二秒时就加载下一个文件.

比如一个视频是3700秒,那你在3699秒时就加载下一个文件,不要等到播放器自动结束再加载.
[解决办法]
很难解决，因为播放下一个媒体文件时候，通常播放器都要初始化Filgraph的，所以打开新文件必须重新设置Filgraph。视频窗体是附加于Filgraph上的，所以也不得不重新设置尺寸。否则，放不了几个文件内存就吃尽了。
我也想过很多办法，但都失败了，所以我觉得，基本无解