Question

VB Flash播放问题！

如何像QQ宠物一样满足某个条件后显示一个Flash，但是这个Flash只能播放一次，之后就播放一个固定的，周而复始？
不是这样！按默认的方法，播放了一个Flash之后就必须得循环了
20分

Answer 1

'播放flash
Private Sub Form_Load()
Timer1.Interval = 500;
ShockwaveFlash1.Movie ="c:\welcome.swf"
ShockwaveFlash1.Play '播放
End Sub

'结束后停止播放,也就是播放一次
Private Sub Timer1_Timer()
If ShockwaveFlash1.FrameNum = ShockwaveFlash1.TotalFrames - 1 Then
ShockwaveFlash1.Stop
Timer1.Interval = 0
End If
End Sub

Answer 2

用VB的Flash控件可以控制Flash的播放，暂停。那是VB的事。