Vb.net flash不会自动开始播放视频,视频升级失败?
我很难让我当前的vb.net代码开始自动播放从预告片瘾君子API服务检索的随机视频预告片(我一次只返回6个)。此外,我可以播放第一个视频,但其他视频也不允许我手动播放,因为访问受保护内存时出错。代码如下: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
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控件中播放多个视频的代码,我会接受这个答案。