Question

我正在尝试如何分配特定文件以在播放器中播放。不需要文件对话框。我需要的是如果我点击按钮1闪光灯将播放。

我喜欢这个

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()

在播放器中分配swf文件

1 个答案: