[求助]紧急求教,高手快来帮忙指点! - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → [求助]紧急求教,高手快来帮忙指点!

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 562 人关注过本帖

标题：[求助]紧急求教,高手快来帮忙指点!

取消只看楼主加入收藏

treea

等　级：新手上路
帖　子：9
专家分：0
注　册：2007-3-11

楼主

问题点数：0 回复次数：2

[求助]紧急求教,高手快来帮忙指点!

请问采用MMControl控件编制音乐类播放文件时，如果才能自动播放下一首歌？到最后一首又如何自动循环到第一首歌？（已建立了列表框，取名Lista）

搜索更多相关主题的帖子: 手快　

2007-03-11 19:54

treea

等　级：新手上路
帖　子：9
专家分：0
注　册：2007-3-11

第 2 楼

得分:0

怎么没有人帮助我啊

2007-03-14 14:59

treea

等　级：新手上路
帖　子：9
专家分：0
注　册：2007-3-11

第 3 楼

得分:0

我已经试过啦!
'---自动向下播放的算法
Dim toc As Variant
toc = ListA.ListCount - 1
If toc = ListA.ListCount Then
Exit Sub
Else
ListA.ListCount = ListA.ListCount + 1
MMContA.filename = ListA.Text
MMContA.Command = "play"

这样可以继续下一首,但播放完第二首歌就出错,那位高手来帮忙看看代码错在那里

2007-03-15 15:01

快速回复：[求助]紧急求教,高手快来帮忙指点!