在VB中播放Flash动画

发布: 2007-7-14 20:28 | 作者: 佚名 | 来源: 网络转载 | 查看: 34次 | 进入软件测试论坛讨论

VB中SWFLASH控件能让用户在VB中播放Flash(swf格式)动画,我在一次作软件封面时,采用了Flash动画作欢迎画面,但是由于控件没有关于swf播放结束的事件,咱又不懂得FS COMMAND,只好想了个别的办法,源程序如下:
控件:timer1,ShockwaveFlash1
　
Private Sub Form_Load()
'=========设置窗口属性===============
form1.BoederStyle=0
ShockwaveFlash1.Top = 0
ShockwaveFlash1.Left = 0
ShockwaveFlash1.Height = Me.ScaleHeight
ShockwaveFlash1.Width = Me.ScaleWidth
　
'=======设置swf文件的路径============
ShockwaveFlash1.Movie ="c:\welcome.swf"
ShockwaveFlash1.Play '播放
End Sub
　
Private Sub Timer1_Timer()
If ShockwaveFlash1.FrameNum = ShockwaveFlash1.TotalFrames - 1 Then
ShockwaveFlash1.Stop
Unload Me
　
'=======显示你的程序主窗口=========
　
End If
End Sub

文章来源于领测软件测试网 https://www.ltesting.net/

软件测试论坛

领测软件测试网最新更新

软件测试技术相关文章

软件测试培训信息

最新软件测试技术专题

最新领测软件测试网新闻

软件测试技术文章排行榜

编辑推荐
周排行
月排行

软件测试技术分类最新内容