【VB开源代码栏目提醒】:网学会员--在 VB开源代码编辑为广大网友搜集整理了:在VB中播放Flash - 编程语言绩等信息,祝愿广大网友取得需要的信息,参考学习。
一 在
VB中播放Flash动画 怎样才能在
VB中加入Flash动画呢我们只要使用Flash5自带的Shockwave Flash.ocx这个控件就可以了。
方法如下 1 打开
VB6.0新建一个工程在工具箱上单击右键选择Components??在部件窗口的控件
列表中选择Shockwave flash然后确定Flash控件就被加到工具箱上。
2.选择工具箱上的Flash控件放到窗体上并调整好大小 3在Form_Load过程中加入如下
代码 Private Sub Form_Load ShockwaveFlash1.Movie “D:test.swf” 这里写上你的Flash文件目录 ShockwaveFlash1.Menu False ShockwaveFlash1.Playing True End Sub 其中ShockwaveFlash1.Movie是用来指定你要播放的Flash动画的目录ShockwaveFlash1.Menu是用来指定是否在Flash动画播放中封闭右键菜单True为能够显示菜单False为封闭右键菜单ShockwaveFlash1.Playing True是让动画播放。
好了按F5看看吧是不是程序中的Flash动画能播放了 二 在Flash中控制
VB程序实现交互 现在Flash动画已经能在
VB程序中播放了那么怎么实现在Flash中控制
VB的程序从而实现交互式的操作呢本文的重点也在于此。
首先我们先来了解Flash中控制
VB程序的基本原理在Flash的ActionScript里面有个叫做FSCommand的函数它的主要功能就是发送FScommand命令例如使动画全屏播放隐藏动画菜单更重要的就是可以与外部文件和程序进行通信。
而在
VB程序中我们就是利用的Shockwave flash控件的FSCommand过程来完成这一
通信过程实现信息发送的功能并且根据发送出来的不同的命令及参数来实现对
VB程序的控制。
明白了吧简单的说我们就是利用Flash中的FSCommand函数向
VB发送命令利用Shockwave Flash控件来接受这个命令从而达到Flash控制
VB程序的目的。
好了现在知道了原理我们就一步一步来实现吧 1 首先要打开Flash5制作一个交互按钮并在按钮上面加上如下
代码 on release fscommand Send Action //发送Send Action这个命令 这个命令的作用是当按下按钮后Flash向
VB发送出名为”Send Action”的命令。
当然这个命令的名字在实际应用中可以叫做其他的任何名字。
2 将Flash导出成为swf文件如文章第一部分所述插入到
VB6.0中下面就是
VB怎么接受这个命令的事情了 3 在窗体上双击Shockwave Flash控件进入
代码编辑窗口加入如下语句 其中ShockwaveFlash1_FSCommand这个过程是专门用来接收Flash发送的FSCommand命令的其中第一个参数command就是与Flash发送过来的命令相对应的当其一致的时候则执行后面的程序本例中是弹出MsgBox。
好了看看程序运行的结果吧 Private Sub ShockwaveFlash1_FSCommandByVal command As String ByVal args As String If command Send Action Then msg MsgBoxFlash与
VB成功结合了 vbApplicationModal 成功了 当接到Send Action命令的时候 这里加入你需要的程序 End If End Sub Yeah成功了 怎么样通过本文你是不是完全掌握了Flash与
VB的结合这里你只要把Then后面要执行的语句段变为你自己想要实现的程序那么Flash中的动画按钮就能实现所有强大的
VB功能了 本文来自编程入门网http://www.bianceng.cn/VBjc/sljc/sl2.htm