在VB程序中加入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。