在VB程序中加入Flash动画

黄崇源 
2001年 45期

　　Flash动画是时下很热的东西，如何在自己的程序中加入Flash动画呢？VB 6.0提供了两种方法插入Flash。一种是利用标准控件OLE容器；另一种方法是用ActiveX控件Shockwave Flash。下面我们就来谈谈具体操作:
　　#1　　利用OLE
　　　　首先建立一个工程，一个窗体Form1。然后在VB的工具栏里选中OLE容器，在Form1中画出一个方框。这时会弹出一个插入对象的对话框，选择从文件创建。然后选择一个Flash文件。
　　　　确定后，Form1的OLE容器里便有了个Flash的图标。在运行时你只要双击这个图标，便可以欣赏这个Flash动画了。如果想让窗体加载完后Flash动画片自动播放。只要在Form1中加入下面的代码即可。
　　　　Private Sub Form_Load（）　
　　　　OLE1.DoVerb （0）
　　　　End Sub
　　　　当然你还可以把OLE容器设为不可见。这样，Flash动画就能起到修饰程序的作用了。利用这种方法还能给程序添加背景音乐。
　　#1　　用Shockwave Flash控件
　　　　选择工程菜单中的部件选项，然后在对话框的控件栏里选择Shockwave Flash控件，按确定，该控件的图标就会出现在工具栏中。然后点击该控件，在Form1中画出一个方框，方框就是显示Flash动画的地方。设你的D盘里有个Flash动画:about.swf，想在窗体加载后即显示该动画。只要我们在窗体的Load事件中加入代码“shockwaveflash1.movie =（“d:\about.swf”）”就可以轻松搞定！
　　　　若要移植你的程序，则要带上你所用的Flash动画，当然，还得把上面的程序改为“shockwaveflash1.movie=（app.path &“\about.swf”）”，这个代码表示Flash文件和程序在同一目录下。
　　　　注:如果是用第一种方法插入Flash，则程序会把用到的Flash动画包容进去，也就是说移植程序时不用带程序中用到的Flash。
　　
　　 
 