正在进行安全检测...

发布时间:1714354321   来源:文档文库   
字号:

VB编写FLASH动画播放器
Flash4MacroMedia公司出品的矢量动画创作专业软件,利用该软件制作的矢量动画具有文件体积小、带音效和兼容性好等特点。那么,你想不想在自己编写的程序中加Flash动画,为自己的程序添加一道亮丽的色彩呢?
一、编程原理
本程序利用了Flash4本身自带播放Flash动画的控件Swflash.ocx。你可以通过以下途径获得该控件:1、安装Flash42、安装Windows98自带的Flash插件,方法:依次单击“开始”菜单-“设置”-“控制面板”-“添加/删除程序”-“Windows 安装程序”-“多媒体”-“详细资料”-选中“Macromedia Shockwave Flash”前的复选框确定即可。以上方法都会将该控件安装到Windows目录下的System\Macromed\Flash子目录下。
二、示例程序
下面就是一个用Swflash.ocx控件编写的Flash动画播放器。本程序可一次打开多个Flash动画文件,并可在播放过程中选择播放打开的文件、随时改变播放质量、画面大小等状态;在播放过程中可以随时对播放的当前帧数进行调整或者手动进行逐帧播放,在状态栏里有当前播放状态的相关说明。在实现以上功能时,几乎用全了Swflash.ocx控件的主要属性、方法。
编程过程如下:


1、窗体、界面设计。
新建工程,选择“工程”菜单下的“部件”命令,在“部件”窗口的“控件”列表中将“Shockwave flash”、“Microsoft Common Dialog Control 6.0 (SP3”、“Microsoft Windows Common Control 6.0 (SP3”前的复选框选中,然后确定。再在窗体中分别加入1CommonDialog控件、1Slider控件、3Label控件、6CommandButton控件和1Status Bar控件。其中:
Form1的“Caption”属性设置为:Flash动画播放器。这是控制窗口。
CommonDialog1CancelError设置为TrueDialogTitle设置为“打开Flash动画文件”,Filter属性设置为“Flash动画(*.swf|*.swf|”,FilterIndex设置为1MaxFileSize设置为10240
Slider1SelectRanger的属性设置为“True”,SmallChange属性和LargeChange属性设置为10TickFrequengcy属性设置为20TextPosition设置为“1 SldBelowRight”。
Label(13分别放在Slider1下的左端、中间和右端。其中,Label1Caption设置为“0帧”,Label2Label3Caption设置为空字符串。
6CommandButton的“名称”属性分别为:cmdOpencmdPlaycmdPausecmdPrecmdPreFramecmdNextFramecmdNextcmdExit,“Caption”属性分别为:打开、播放、暂停、上一个、上一帧、下一帧、下一个、退出。

本文来源:https://www.2haoxitong.net/k/doc/13b8cee981c758f5f61f6774.html

《正在进行安全检测....doc》
将本文的Word文档下载到电脑,方便收藏和打印
推荐度:
点击下载文档

文档为doc格式

相关推荐