Question

VB 我加了一个flash 然后调用根目录的swf文件，应该用什么命令，

VB 我加了一个flash 然后调用根目录的swf文件，应该用什么命令，timer控件倒数3秒自动关闭代码怎么写

Answer 1

ShockwaveFlash1.Movie = "c:\a.swf"

三秒后结束程序
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = False
Timer1.Tag = 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
Timer1.Enabled = True
Cancel = True
End Sub

Private Sub Timer1_Timer()
Timer1.Tag = Timer1.Tag + 1
If Timer1.Tag > 3 Then End
End Sub

追问

我说存可执行文件的目录下，不是C盘下。

追答

ShockwaveFlash1.Movie = app.path & "\a.swf"