890      技術社區[雲棲]

VB 循環播放視頻文件

       private sub form_load()

               if mydialog1.filename=" " then

                       mystart:   mydialog1.showopen           '彈出對話框，選擇要加載的視頻

                       if mydialog.FileName = "" Then
                              GoTo mystart
                       end If
                       myplayer.URL = mydialog.filename '

                   end If
               form1.visible = false
               timer1.Interval = 500
               timer1.enabled = true
       end sub

       private sub timer_timer()

                If myplayer.playstate = 1 then                    '每500ms判斷一次音頻文件是否播放完畢，
                        myplayer.controls.play
                end If
       end sub

最後更新：2017-04-03 18:52:05

  上一篇： 少寫一個“；”，帶來不一樣的結果

  下一篇： Android 動態添加控件