网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
mcyh吧 关注：73贴子：3,004
  • 6回复贴，共1页

用mediaplayer控件全屏播放并结束后隐藏

只看楼主收藏回复

说实话。这个代码我也不确定好不好用。先分享。 知道没人看。 总有一天会有人挖坟的。这条路。注定孤独
IP属地:浙江来自iPhone客户端1楼2015-06-30 07:16回复
    楼下代码妥妥的
    IP属地:浙江来自iPhone客户端2楼2015-06-30 07:17
    回复
      Private Sub Form_Load()
      WindowsMediaPlayer1.Move 0, 0, Screen.Width, Screen.Height
      End Sub
      。
      Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
      If (WindowsMediaPlayer1.playState = wmppsPlaying) Then
      WindowsMediaPlayer1.fullScreen = True
      ElseIf WindowsMediaPlayer1.playState = wmppsStopped Then
      WindowsMediaPlayer1.URL = ""
      WindowsMediaPlayer1.Visible = False
      End If
      End Sub
      IP属地:浙江来自iPhone客户端3楼2015-06-30 07:17
      回复
        多关注一个人。我就多一点动力。 抱拳了
        IP属地:浙江来自iPhone客户端4楼2015-06-30 07:21
        回复
          啦啦啦啦
          IP属地:广东来自Android客户端5楼2015-07-01 12:42
          回复
            昂
            来自Android客户端6楼2015-07-16 22:38
            回复
              WindowsMediaPlayer1.URL = ""
              这一句必须加上才有效
              IP属地:河南7楼2018-09-26 11:24
              回复

                扫二维码下载贴吧客户端

                下载贴吧APP
                看高清直播、视频！
                • 6回复贴，共1页
                发表回复
                发贴请遵守贴吧协议及“七条底线”贴吧投诉
                内  容:
                  查看全部
                发 表
                保存至快速回贴