vb做壹個簡單的小程序

Private Sub Form_Load()

ShockwaveFlash1.Movie = "D:\wwwroot\KuFang\images\1.swf"

ShockwaveFlash1.Menu = False

ShockwaveFlash1.Playing = True

End Sub

Private Sub Timer1_Timer()

End

End Sub

建壹個無邊框窗體,復制上面代碼進去就OK了

工程文件給妳發過去了 後發的是修改過的 免去了需要修改路徑的麻煩