Vb.net flash不会自动开始播放视频,视频升级失败?

Vb.net flash不会自动开始播放视频,视频升级失败?,vb.net,flash,video,Vb.net,Flash,Video,我很难让我当前的vb.net代码开始自动播放从预告片瘾君子API服务检索的随机视频预告片(我一次只返回6个)。此外,我可以播放第一个视频,但其他视频也不允许我手动播放,因为访问受保护内存时出错。代码如下: Private Sub TrailerRotateTimer_Tick(sender As Object, e As EventArgs) Handles TrailerRotateTimer.Tick If FirstTrailer = False Then Se

我很难让我当前的vb.net代码开始自动播放从预告片瘾君子API服务检索的随机视频预告片(我一次只返回6个)。此外,我可以播放第一个视频,但其他视频也不允许我手动播放,因为访问受保护内存时出错。代码如下:

  Private Sub TrailerRotateTimer_Tick(sender As Object, e As EventArgs) Handles TrailerRotateTimer.Tick
    If FirstTrailer = False Then
        Select Case myoptions.TrailerPlayTime
            Case Is = 60
                TrailerRotateTimer.Interval = 60000
                FirstTrailer = True
            Case Is = 90
                TrailerRotateTimer.Interval = 90000
                FirstTrailer = True
            Case Is = 120
                TrailerRotateTimer.Interval = 120000
                FirstTrailer = True
            Case Else
                TrailerRotateTimer.Interval = 60000
                FirstTrailer = True
        End Select

    End If
    firstvideo = myoptions.TrailerUrlCollection.Item(randnum.Next(1, 5))
    ' Video.EmbedMovie = True
    Video.AllowScriptAccess = "always"
    Video.FlashVars = ""
    ' Video.Playing = True

    Video.LoadMovie(0, firstvideo)

    If Video.IsPlaying = False Then
        ' Video.CallFunction("<invoke name=""id"" returntype=""xml""><arguments><string>100788</string></arguments></invoke>")
        Video.Play()
        'Video.Playing = True
        'Video.Loop = False
    Else
        Video.Stop()
        Video.Play()
    End If
End Sub
私有子TrailerRotateTimer_Tick(发送方作为对象,e作为事件参数)处理TrailerRotateTimer.Tick
如果firsttrail=False,则
选择Case myoptions.TrailerPlayTime
情况是=60
TrailerRotateTimer.间隔=60000
firsttrail=True
情况是=90
拖车旋转定时器间隔=90000
firsttrail=True
情况是=120
TrailerRotateTimer.间隔=120000
firsttrail=True
其他情况
TrailerRotateTimer.间隔=60000
firsttrail=True
结束选择
如果结束
firstvideo=myoptions.TrailerUrlCollection.Item(randnum.Next(1,5))
'Video.movie=True
Video.AllowScriptAccess=“始终”
Video.FlashVars=“”
“Video.Playing=True
Video.LoadMovie(0,第一个视频)
如果Video.isplay=False,则

'Video.CallFunction("

您是否尝试过设置断点并按照代码进行操作?另外,在您的Case语句中去掉
Is
。只需编写
Case 60
等。它只在计时器加载下一个预告片时发生,我手动按play。否则,它将手动播放第一个预告片。我有一个调用并创建表单的sub main。它会出错不过在加载电影前后/之后。我收到了traileraddict管理员的一条评论,这是在他们的SWF文件中设计的。管理员说添加了一个变量,这样视频就可以自动播放。所以,现在如果有人有在flash控件中播放多个视频的代码,我会接受这个答案。