在播放器中分配swf文件

Question

即时通讯尝试做如何分配特定文件在播放器中播放。不需要文件对话框。 我需要的是如果我点击button1闪光灯将播放。

我喜欢这个

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 

    Dim swffile As String = "C:\Users\Rj Shadow\Documents\UM Buildings\BE.swf" 

    AxShockwaveFlash1.LoadMovie(0, swffile) 
    AxShockwaveFlash1.Play() 
    AxShockwaveFlash1.Loop = False 


End Sub 

这个简化版，工作..

Answer 1

打同样的问题。几个小时后 - 这是重要的代码顺序。如果有人在这里绊倒，这个工作：

Dim flash1 As New AxShockwaveFlash 
    ..... 
    flash1.Location = New System.Drawing.Point(300, 23) 
    Me.Controls.Add(flash1) 
    flash1.Movie = "C:\Users\Steve\Scripts\Projects\CPWizBiz\Assets\Test SWFs\Artwork4.swf" 
    flash1.Size = New System.Drawing.Size(192, 400) 
    flash1.Play()