基于ActiveMovie的播放器程序 播放器

使用 ActiveMovie 控件自制播放器心得

要点：本播放器包括

功能方面：文件打开，播放，暂停，停止，全屏显示，声音控制，播放进度，播放列表

外观方面：不规则外观（可根据位图任意绘制），不规则按钮，圆形，和  风格

文末附加存在的问题。

正文：

简易播放器

第一部分：功能

))%&'%(%'""(

!*!"!!+!,- +-+,-+!"!  ./

0'*"!%123%45!"!"6'7%"&6%789

0'81+9

":-+1+9

)

利用 %(";87;"8(6 控件建立播放器，并逐步添加功能。

当点击“打开文件”时选择要播放的文件，该文件名会显示在播放列表中。原来显示的是全路经，我现在该位只

显示文件名了。

<! =

B0& CE0DCE0DB

B; !& CDCDB

B<& CE<DCE<DB

B%;"& C< DC< DB

B7!< & C0!<DC0!<DB

B7 & C000DC000DB

B7 & C0 9#0 DC0 9C0 DB

B783& C0DC0DB

B%& CDCDDB9

&  !(68###&'F"868%G#+?& & 9

$

"+*0C& '(BMMB# 9

 1"+4

$但如果遇到路经中夹带中文就不好用了，比如“测”字中第一个字节信息会被误认为是“MN从而出

错，所以路经中除了目标文件名外最后一个“MN前的字符最好都用英文

+*0C7  9

I9

)

)

0' +=C%: *09

0'=6-C8 !E(689

0'=6 !C8 !E(689

0'=!E6 !C8 !E(689

0'=:*!:!C8 !E(689

0'=:!C8 !E(689

0'=%:*!EC8 !E(689

0': 6 !C8 !E(689

-9

)

)

<! =%:*!E

$

(%!-!!! > !*!*

0'% <7!< C-+9

0'% <7!< C:&-:7!-9

0'% <7!< C:7!<  !E: ?:':F7%"7"O89

 1":-+

$

0'% <7!< C6-9

":-+1+9

)

+

$

0'% <7!< C-+9

":-+-9

)

P 停止

$

H ( 0J9

)

Q 增加音量

<! =6 !

$

(%!-!!! > !*!*

!0'<!-00'% <7!< C3;!-09

0'% <7!< C-+9

0'% <7!< C:;!-00'<!-0LJJ9

0'% <7!< C6-9

0'% <7!< C-+9

0'% <7!< C:;!-00'6-4JJ9

0'% <7!< C6-9

)