学步园

用到的控件：commondialog，timer，windows media player

       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