VB里面 shockwaveflash怎么让它播放完flash就自动退出?

Question

我的小工程里面用到shockwaveflash,它加载的是一个小提示类的图标,和瑞星的小狮子差不多,我想让它提示完就自动退出,怎么写代码???用哪个方法或者属性???请高手指点!!!

Answer 1

用timer
加载图标时启动timer
设timer时间为估计停留达到效果时间
在触发timer时退出

Answer 2

Dim T
Private Sub Command1_Click()
ShockwaveFlash1.Movie = "D:\Flash\Flash\34985.swf"
Timer1.Enabled = True
T = ShockwaveFlash1.TotalFrames
Debug.Print T
End SubPrivate Sub Form_Load()
Timer1.Interval = 30
Timer1.Enabled = FalseEnd Sub
Private Sub Timer1_Timer()If T - ShockwaveFlash1.CurrentFrame < 2 Then End
Debug.Print ShockwaveFlash1.CurrentFrame
End Sub

Answer 3

Private Sub Form_Load()
    ShockwaveFlash1.ScaleMode = 0
    ShockwaveFlash1.Loop = False
    ShockwaveFlash1.Movie = "X:\Temp\d10.swf"
    ShockwaveFlash1.Play
    Timer1.Interval = 50
    Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
    If (ShockwaveFlash1.FrameNum = ShockwaveFlash1.TotalFrames - 1) Then Unload Me
End Sub

Answer 4

经试验，ShockwaveFlash1.Loop = False　要在 ShockwaveFlash1.Play 之后进行设置。Private Sub Form_Load()
    ShockwaveFlash1.ScaleMode = 0
    ShockwaveFlash1.Movie = "X:\Temp\d10.swf"
    ShockwaveFlash1.Play
    ShockwaveFlash1.Loop = False    '要在 .Play 之后！！！
    Timer1.Interval = 200           '可以选得稍大
    Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
    If (ShockwaveFlash1.FrameNum = ShockwaveFlash1.TotalFrames - 1) Then Unload Me
End Sub