小叮当也战江湖—VB实例七日谈(五)

下一页 1 2 3 4 5 6 7 

　　 　　第五天、Flash动画播放器

　　小蘑菇：叮当姐姐，上次你教我做媒体播放器之后不是让我自己做一个Flash动画的播放器吗？但是我始终没有搞定，还是你来帮帮忙吧。

　　小叮当：咦，现在怎么变得谦虚起来了？既然是这样，就由我出马搞定吧。

　　一、准备工作

　　小叮当：制作Flash动画播放器的时候需要调用一个Flash控件－－－Swflash.ocx，这个控件可以通过安装Flash，或者通过安装Windows 98自带的Flash插件来搞定。比如采取后一种方法，只要在控制面板中选择“添加/删除程序”图标，进入“Windows 安装程序”界面之后在“多媒体”一项中点选“Macromedia Shockwave Flash”前的复选框确定即可。

　　小蘑菇：不用这么麻烦吧，其实我的计算机中已经安装过Flash了，还用它制作过一些动画呢。

　　小叮当：切，你不早说？浪费我这么多口水。不过即使已经安装了Flash，也要用鼠标右击工具箱，并在弹出的部件添加窗口中选把Shockwave flash、Microsoft Common Dialog Control 6.0 (SP3)和Microsoft Windows Common Control 6.0 (SP3)这三个控件添加到工具箱中。完成这一步设置后，就可以开始制作Flash动画播放器了。

　　二、制作Flash播放器

　　小叮当：咱们制作的这个Flash动画播放器要能够一次打开多个Flash动画文件，可以在播放过程中选择播放打开的文件、随时改变播放质量、画面大小等状态，而且在播放过程中可以随时对播放的当前帧数进行调整或者手动进行逐帧播放，在状态栏里有当前播放状态的相关说明等等。下面先来添加程序所需要的控件。

　　1、新建一个工程，将Form1的Caption属性设置为“小叮当的Flash动画播放器”。

　　2、在Form1窗口中添加一个CommonDialog控件，将CommonDialog1控件的CancelError设置为“True”，DialogTitle设置为“打开Flash动画文件”，Filter属性设置为“Flash动画（＊.swf）|＊.swf|”，FilterIndex设置为“1”，MaxFileSize设置为“10240”。

　　3、在Form1窗口中添加一个Slider控件，将Slider1的SelectRanger的属性设置为“True”，SmallChange属性和LargeChange属性均设置为“10”，TickFrequengcy属性设置为“20”，TextPosition设置为“1-SldBelowRight”。
　
　　4、在Form1窗口中添加3个Label控件，并将Label1的Caption设置为“0帧”，Label2和Label3的Caption设置为空字符串。

原文转自：http://www.ltesting.net