Excel 媒体播放器——DirectShow (DirectX)

zhyzhsh

一直对Media Player Classic类的播放软件很感兴趣，觉得它们既强大又神奇。近日得到一点启发，试着用VBA来做了一个，供大家参考。

Excel Media Player 1.2.zip (36.29 KB, 下载次数: 819)

2009-6-28 18:49 上传

点击文件名下载附件

主要特性：
1、支持多种文件格式。如：rmvb、wmv、mov、mpg、flv、ra、wma、mp3等，只要电脑里有对应的解码器。如rmvb需要装Realplayer或Real Alternative，mov需要装QuickTime或QuickTime Alternative。
2、支持全屏观看（按Esc键返回）。
3、支持基本界面换肤，自带5种颜色样式。
4、支持中英双语界面，根据Office界面语言自动判断。
5、支持m3u播放列表的保存和读取。
6、界面元素完全使用Excel自带控件。

下面是主界面截图：



测试环境：
Excel 2003、2007
Windows XP、Vista、2003

已知问题：
1、暂不支持swf。

[ 本帖最后由 zhyzhsh 于 2009-6-28 18:49 编辑 ]

tonyibm

不错，能看到源代码就好了，

zhyzhsh

原帖由 tonyibm 于 2009-6-29 01:15 发表
不错，能看到源代码就好了，

有呀，先启动excel，再打开这个播放器就可以了。

tonyibm

原帖由 zhyzhsh 于 2009-6-29 12:31 发表


有呀，先启动excel，再打开这个播放器就可以了。

不行啊，打开你那个表，就是显示窗体，关掉窗体，EXCEL表就关掉了，

我现在遇到一个问题，你那个进度条是怎么和播放器关联的，用的是播放器的哪个事件，一直没有搞懂，

请指教！

chuhaiou

太好了!EXCEL还能这样!要是能显示歌词更好!

chuhaiou

如果移植到WORD中为什么不行呢?

987654321

不错,源码都公开的

zhyzhsh

原帖由 tonyibm 于 2009-6-30 18:45 发表
不行啊，打开你那个表，就是显示窗体，关掉窗体，EXCEL表就关掉了，
我现在遇到一个问题，你那个进度条是怎么和播放器关联的，用的是播放器的哪个事件，一直没有搞懂，
请指教！

当前只打开一个workbook的情况下才会隐藏excel界面，也就是说你先打开其他的文件就能进去看代码了。
我是用循环来做进度条的，不知有没有更好的建议？

zhyzhsh

原帖由 chuhaiou 于 2009-6-30 20:30 发表
如果移植到WORD中为什么不行呢?

跟用到excel的一些特有对象有关。

[ 本帖最后由 zhyzhsh 于 2009-7-1 15:21 编辑 ]

zhyzhsh

原帖由 chuhaiou 于 2009-6-30 20:24 发表
太好了!EXCEL还能这样!要是能显示歌词更好!

做不到十全十美呀，抱歉。