在VB中播放Flash动画
【打印文章】
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
控件: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
本栏文章均来自于互联网，版权归原作者和各发布网站所有，本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )
【编程爱好者论坛】