diyflash播放器

《diyflash播放器》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、坦白讲你还是用。Net重新写，能转但是很多语法用法都不同了，如果项目比较大了，改都让你头疼死。小的还以。用.net文件打开选择你的VB6工程项目文件即可会跳出转换程序的。DIY自己的Flash播放器文章来源：天天加油　　更新时间：2007-8-9　　浏览次数：　　发表评论内容摘要：要说Flash动画是时下网上最流行的东东想来不会有人反对的，每当看到优秀作品笔者就急不可待download，但是收集了那么多却发现没有好用的Flash播放器来播放。笔者…要说Flash动画是时下网上最流行的东东想来不会有人反对的，每当看到优秀作品笔者就急不可待download，但是收集了那么多

2、却发现没有好用的Flash播放器来播放。笔者首先想到的是Flash5中自带的播放器，可是其功能实在太弱，而且还要安装几十MB的Flash5，未免大材小用，难道只能在网页上欣赏吗？于是，我想到自己做一个--这听上去很诱人，复杂吗？别担心，用VB就行，做出来的播放器功能一点也不弱，具有相当水准，你可以自由的选择播放、暂停、重播，还可以单帧逐步播放，来观察作者的每一步设想，甚至可以像看VCD一样看Flash文件，随意跳帧。够酷吧！让你充分体验一回作为软件DIYer的乐趣。下面我将详细地阐述整个开发过程。::理论分析::·如何实现播放Flash动画？Flash播放器也属于多媒体

3、播放器的一类，所以应包括完整的播放控制功能：播放、暂停、停止、重播、后退一帧、前进一帧、最后一帧、快退、快进，循环播放和全屏幕播放。由于Flash动画是矢量动画，针对此特点还得有缩放和质量调节的功能。要实现如此多的功能无须自己编程，只要调用系统中的Flash播放控件提供的接口，其实Flash5中自带的播放器和网上众多的Flash播放都是这样做的。如果你上网能正常浏览有Flash动画的网页，那么你的系统中已经有此控件了。若没有，你可以通过“控制面板”-“添加/删除程序”进行安装。选择“Windows安装程序”页，在“多媒体”中选择“详细资料”，“MacromediaSho

4、ckwaveFlash”就是我们需要的，将其前面的复选框选中，再将Windows安装光盘放入光驱，点击“确定”即可将控件Swflash.ocx安装注册；或者你也可以直接在浏览有Flash动画的网页ie提示你下载此控件时自动下载安装。说到这里你可能认为既然控件很容易得到，又只不过是调用控件提供的接口，没有什么难点。请注意！基于Flash控件的开发是没有公开的技术资料可查的，其资料必须以开发商业软件为目的同Macromedia签定有关协议后才可能获得，而且是要付费的。因此笔者在开发过程中走了不少弯路，有些属性和方法的使用是在摸索中逐渐搞清楚的，部分接口到目前为止笔者还是不知

5、道怎样使用，在后面的源代码中你也能看得出探索的痕迹。·特别问题：如何全屏幕播放？全屏幕播放是个看似简单，实现起来一点也不容易的功能。在所有的播放控制功能中，全屏幕播放是唯一一个不是由Flash控件提供的，因为只有窗口才有全屏的概念，控件则没有，因此它需要播放器自己实现。全屏的要求是窗口充满屏幕，并且无标题条的边框，这就需要在运行时刻动态改变窗口的风格，但我们知道VB开发的程序，没有提供在运行时刻动态更改窗口风格的方法（运行时更改窗口的BorderStyle无效，ControlBox属性不能在运行时更改），看来惟有借助WindowsAPI了。Windows在user32.

6、dll中提供了一组对应函数来分别获取和更改窗口的属性--GetWindowlong和SetWindowLong，它们都可以在VB的APILoader中找到：PrivateDeclareFunctionGetWindowLongLib"user32"Alias"GetWindowLongA"(ByValhwndAsLong,ByValnIndexAsLong)AsLong；PrivateDeclareFunctionSetWindowLongLib"user32"Alias"SetWindowLongA"(ByValhwndAsLong,ByValnIndexAsLong

7、,ByValdwNewLongAsLong)AsLong。其中hwnd参数是被操作窗口的句柄；nIndex参数告诉函数要操作窗口的什么属性，在本程序中传入GWL_STYLE值，其他参数值可查阅MSDN；dwNewLong参数是新的窗口属性值。标准的窗口风格是有标题条和可缩放的边框，对应的窗口风格参数值是WS_CAPTION和WS_THICKFRAME，所以要实现全屏只要将窗口风格属性中的这两个值去掉就达到效果了，要恢复也很简单，重新加上这两个值即可。了解原理后，下面我们就进行编程实践了！::编程实践::打开VB，新建一个标准的EXE工程，