【VB开源代码栏目提醒】：网学会员为广大网友收集整理了，在VB程序中加入Flash动画 - 计算机教材，希望对大家有所帮助！

在VB程序中加入Flash动画 黄崇源 2001年 45期 Flash动画是时下很热的东西，如何在自己的程序中加入Flash动画呢？VB 6.0提供了两种方法插入Flash。

    一种是利用标准控件OLE容器；另一种方法是用ActiveX控件Shockwave Flash。

    下面我们就来谈谈具体操作: 1OLE Form1。

    然后在VB的工具栏里选中OLE容器，在Form1中画出一个方框。

    这时会弹出一个插入对象的对话框，选择从文件创建。

    然后选择一个Flash文件。

     Form1的OLE容器里便有了个Flash的图标。

    在运行时你只要双击这个图标，便可以欣赏这个Flash动画了。

    如果想让窗体加载完后Flash动画片自动播放。

    只要在Form1中加入下面的代码即可。

     Private Sub Form_Load OLE1.DoVerb （0） End Sub OLE容器设为不可见。

    这样，Flash动画就能起到修饰程序的作用了。

    利用这种方法还能给程序添加背景音乐。

     1Shockwave 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。