VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 在VB中播放Flash动画
发表评论(0)作者:敖华明, 平台:VB6.0+Win98, 阅读:11331, 日期:2001-02-11
在VB中播放Flash动画

{如今,Flash大行其道。如何在自己设计的程序中播放Flash动画呢?今天以VB为例,用Active控件Shokwave Flash来播放Flash。
从什么地方得到播放Flash的控件呢?其实,在Flash 4的安装盘的Plugins目录下可以找到,执行InstallAXFlash.exe就搞定了。另外,在天极网(www.yesky.com)下载中心也能找到。
先简单介绍Shockwave Flash控件的主要属性和方法(见下表)。
用VB 5.0(中文版)新建一个工程,在工具箱中按右键选“部件”,在部件对话框中选中“Shockwave Flash”控件和“Microsoft Common Dialog Control 5.0”控件。在Form1中拖入一个Flash 控件,命名为skFlash,并拖入一个Common Dialog Control控件,命名为CmdDlg,用于打开文件,然后设置四个命令按钮分别命名为cmdPlay、cmdStop、cmdRewind、cmdOpen,并将其Caption属性分别设为“播放”、“停止”、“从头播放”和“打开”。
然后在程序中添加如下代码:
Private Sub Form_Load??
′设置过滤器,专门打开Flash动画(swf格式)
CmdDlg.Filter = ″Flash动画(?.swf)|?.swf ″
End Sub
Private Sub cmdOpen_Click??
′“打开”按钮代码
CmdDlg.ShowOpen
skFlash.Movie = CmdDlg.filename
End Sub
Private Sub cmdPlay_Click??
′“播放”按钮代码
skFlash.Play
End Sub
Private Sub cmdRewind_Click??
′“重头播放”按钮代码
skFlash.Rewind
skFlash.Play
End Sub
Private Sub cmdStop_Click??
′“停止”按钮代码
skFlash.Stop
End Sub (重庆 敖华明)
编者注:怎么样,非常简单吧,要是再扩展一下这个程序,你就可以在节日来临的时候,为你的亲朋好友送上一份你自己制作的贺卡了。}