-1

我正在尝试将一些 youtube 视频加载到 VB.net 中的 AxShockwave 控件，但到目前为止它没有加载

我尝试使用 rlVideo.Movie = "..." 和 rlVideo.LoadMovie(0,"...") （rlVideo 是 AxShockwave 控件）

是的，网址是http://youtube.com/v/xxxxxx

我无法在设计器中设置电影属性，因为它已动态加载到应用程序中，有什么想法吗？

4

1 回答 1

0

我已经从设计器中删除了控件，并在每次更改视频时创建一个新的控件实例当然我删除了以前的控件实例例如

Dim prevControl() As Control = Me.Controls.Find("flashVideoPlayer", True)

        Try
            tbVideo.Controls.Remove(prevControl(0))
        Catch ex As Exception

        End Try

        Dim video As AxShockwaveFlash = New AxShockwaveFlash()
        video.Name = "flashVideoPlayer"
        Dim strMovie As String = CType(ComboBox1.SelectedItem, ComboBoxItem).Value.ToString.Replace("watch?v=", "v/")
        video.Anchor = AnchorStyles.Bottom Or AnchorStyles.Left Or AnchorStyles.Right Or AnchorStyles.Top
        video.Location = New Point(0, 27)
        video.Size = New Size(tbVideo.Width, tbVideo.Height - 27)
        tbVideo.Controls.Add(video)
        video.LoadMovie(0, strMovie)
于 2014-06-22T18:46:57.040 回答