今天我试着编写以前没完成的作品,结果到了运用播放FLASH。结果发现自己怎么也不会?!好差劲哦。。。哎,愧对这里的所有人!~不过我也搞不懂哪里不行了,就是这个代码嘛。
Private Sub Form_Load() PlayFlashMovie App.Path & "\title.swf" End Sub
Public Function PlayFlashMovie(Filename As String)
With Flash1
.Movie = Filename
.Play
End With
End Function
我首先添加个shockwaveFlash控件,然后试下,无法播放?!~~~怎么回事?!
还有倒计时~也不行,怪了,怎么回事,朋友们帮个忙。。。