VBA制作视频播放器基本方法介绍，没想到这么容易

本节就如何实现这些效果来进行一个解释。

而且利用WindowsMediaPlay对象的一些事件和属性，将播放窗口实现自动固定的功能。

经过研究，发现Windows的播放器功能还是很强大的，但是有些功能需要在不同的编程环境下使用，所以，以应用的时候可能会出现一些版本上的不支持。

这个我们不必过多顾虑，把WindowsPlayer更新的7.0以上，基本就可以了。

看下代码：

状态代码：

PrivateSubWindowsMediaPlayer1_StatusChange()'播放状态改变时DimxSAsStringxS="已暂停","已停止"===*0.85=

上述代码实现窗体固定为某些值大小，其代码应用到StatusChange()事件当中。

本事件为当播放状态改变时发生。

播放状态就是当前播放器处于什么情况，是播放还是暂停还是正在连接等等。

根据这个状态可以实现一些代码编辑来处理事务。

获取状态的属性：

窗体代码：

窗体中添加一个按钮对象，一个列表对象，两个标签对象和一个播放器对象，上述代码可以实现这些对象的基本格式。

播放代码

PrivateSubListBox1_DblClick()=0ThenExitSubDimxFileNameAsStringxFileName==

WindowsMediaPlayer对象有很多事件和属性，对任何一门编程语言都需要了解一下其本质含意，在编程过程中具有相同的意义。

应用也就不难了。

---END---

很赞哦!（200）