顺序播放的实现,急!

zwnylsf 2008-05-01 03:14:55
这是我写的一段实现顺序播放的代码:
Private Sub AxWindowsMediaPlayer1_PlayStateChange(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange
With Me.ListBox1
If e.newState = WMPLib.WMPPlayState.wmppsMediaEnded And .Items.Count >= 1 Then
If .SelectedIndex = .Items.Count - 1 Then
Me.AxWindowsMediaPlayer1.URL = .Items(.Items.Count - 1)
Me.AxWindowsMediaPlayer1.Ctlcontrols.play()
Else
.SetSelected(.SelectedIndex + 1, True)
If File.Exists(.SelectedItem) = True Then
Me.AxWindowsMediaPlayer1.URL = .SelectedItem
Me.AxWindowsMediaPlayer1.Ctlcontrols.play()
Else
MessageBox.Show("系统没有找到" & .SelectedItem & ",该项将被删除!", "注意", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
.Items.Remove(.SelectedItem)
Me.AxWindowsMediaPlayer1.URL = .Items(.SelectedIndex + 1)
Me.AxWindowsMediaPlayer1.Ctlcontrols.play()
End If
End If
Else
Exit Sub
End If
End With
End Sub

播放列表listbox里面保存的是每首歌的完整路径,当第一首歌播放完时,自动跳到第二首歌,并且播放。
可是列表仅仅是在上首歌播放完毕时,自动到下一首。但Me.AxWindowsMediaPlayer1.Ctlcontrols.play()不管用,没有在播放。
我用断点看看,Me.AxWindowsMediaPlayer1.URL 没有问题,就是play方法无效。
调试没有发现错误,大家看看怎么回事啊?
...全文
159 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
zwnylsf 2008-05-01
  • 打赏
  • 举报
回复
晕,我也是2005啊
tjficcbw 2008-05-01
  • 打赏
  • 举报
回复
我是2005没有呀,
zwnylsf 2008-05-01
  • 打赏
  • 举报
回复
大家帮忙看看啊
zwnylsf 2008-05-01
  • 打赏
  • 举报
回复
等高手解答
zwnylsf 2008-05-01
  • 打赏
  • 举报
回复
在工具箱空白地方右击,选择"选择项",在弹出的对话框里面找到mediaplay,选定再确定。然后你就能看见了
tjficcbw 2008-05-01
  • 打赏
  • 举报
回复
AxWindowsMediaPlayer你这个东西我没找到
zwnylsf 2008-05-01
  • 打赏
  • 举报
回复
Me.AxWindowsMediaPlayer1,一个listbox,
tjficcbw 2008-05-01
  • 打赏
  • 举报
回复
你这都加载了什么控件不知道,没法为你调试啊

16,717

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧