| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 805 人关注过本帖
标题:用mediaplayer控件开发的mp3播放器不能够自动播放?
只看楼主 加入收藏
明天不一样
Rank: 1
等 级:新手上路
帖 子:121
专家分:0
注 册:2006-8-31
收藏
 问题点数:0 回复次数:0 
用mediaplayer控件开发的mp3播放器不能够自动播放?
我用windowsmediaplay些写了一个mp3播放器,是用windowsMediaplay10版本开发的,其中:
播放文件的代码:
Private Sub MenuSubFile_Click()
   '打开文件并播放,同时清除播放列表里的文件名并在列表里加入打开的文件
   CommonDialog1.Filter = "mp3音乐文件 ?*.mp3"
   CommonDialog1.ShowOpen
   mp3FileName = CommonDialog1.FileName
   MediaPlayer.settings.autoStart = True

   MediaPlayer.URL = mp3FileName
   List1.Clear
   List1.AddItem mp3FileName

End Sub
往列表里加入文件的代码:
Private Sub MenuSubAdd_Click()
   '在播放列表里添加文件
   CommonDialog1.Filter = "mp3音乐文件 ?*.mp3"
   CommonDialog1.ShowOpen
   mp3FileName = CommonDialog1.FileName
   List1.AddItem mp3FileName

End Sub
连续播放列表文件的代码:
dim playfilename as integer
Private Sub MediaPlayer_PlayStateChange(ByVal NewState As Long)
'按播放列表的顺序自动播放
PlayFileNumber = List1.ListIndex
If MediaPlayer.playState = wmppsMediaEnded Then
      If List1.ListIndex  < List1.ListCount - 1 Then
      PlayFileNumber = PlayFileNumber + 1
      List1.Selected(PlayFileNumber) = True
      
      MediaPlayer.settings.autoStart = True
      
      MediaPlayer.URL = List1.List(List1.ListIndex)   
   Else
      List1.ListIndex = 0
      MediaPlayer.URL = List1.List(List1.ListIndex)

   End If
 End If
End Sub
文件就是不能自动播放,必须按一下播放按钮才能够播放,我明明是设置了自动播放啊,不知如何连续自动播放,请指教?谢谢高手
搜索更多相关主题的帖子: mp3播放器 mediaplayer 控件 自动 开发 
2008-04-02 21:14
快速回复:用mediaplayer控件开发的mp3播放器不能够自动播放?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.034716 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved