在VB程序中加入Flash动画

Author: 黄崇源 Date: 2001年 45期

?牐燜lash动画是时下很热的东西,如何在自己的程序中加入Flash动画呢?VB 6.0提供了两种方法插入Flash。一种是利用标准控件OLE容器;另一种方法是用ActiveX控件Shockwave Flash。下面我们就来谈谈具体操作:
  #1?牐犂肙LE
  ?牐犑紫冉?立一个工程,一个窗体Form1。然后在VB的工具栏里选中OLE容器,在Form1中画出一个方框。这时会弹出一个插入对象的对话框,选择从文件创建。然后选择一个Flash文件。
  ?牐犎范ê螅現orm1的OLE容器里便有了个Flash的图标。在运行时你只要双击这个图标,便可以欣赏这个Flash动画了。如果想让窗体加载完后Flash动画片自动播放。只要在Form1中加入下面的代码即可。
  ?牐燩rivate Sub Form_Load()??
  ?牐燨LE1.DoVerb (0)
  ?牐燛nd Sub
  ?牐牭比荒慊箍梢园袿LE容器设为不可见。这样,Flash动画就能起到修饰程序的作用了。利用这种方法还能给程序添加背景音乐。
  #1?牐犛肧hockwave Flash控件
  ?牐犙≡窆こ滩说ブ械牟考∠睿缓笤诙曰翱虻目丶咐镅≡馭hockwave Flash控件,按确定,该控件的图标就会出现在工具栏中。然后点击该控件,在Form1中画出一个方框,方框就是显示Flash动画的地方。设你的D盘里有个Flash动画:about.swf,想在窗体加载后即显示该动画。只要我们在窗体的Load事件中加入代码“shockwaveflash1.movie =(“d:\about.swf”)”就可以轻松搞定!
  ?牐犎粢浦材愕某绦颍蛞夏闼玫腇lash动画,当然,还得把上面的程序改为“shockwaveflash1.movie=(app.path &“\about.swf”)”,这个代码表示Flash文件和程序在同一目录下。
  ?牐犠?:如果是用第一种方法插入Flash,则程序会把用到的Flash动画包容进去,也就是说移植程序时不用带程序中用到的Flash。