您的位置：程序门 -> vb ->

添加歌曲名到listbox，急求！！！在线等

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

添加歌曲名到listbox，急求！！！在线等

发表于：2007-10-28 12:50:26 楼主

一款播放器，使用的是windows media player控件
选择歌曲用了drivelist dirlist flielist控件
但我不知道怎么将想播放的歌曲添加到listbox里面
然后使播放器能够连续播放这些歌曲
当然最好可以在listbox里用上滚动条

发表于：2007-10-28 21:33:371楼得分:0

list1.add 添加你要弄的歌曲
在windows media play 结束事件中

触发list1 下移

list1.change事件中播放

发表于：2007-10-29 09:01:292楼得分:0

这个问题很简单。思路是这样的:
1、将文件列表框file1（filebox）中列出的文件导入到列表框list1（listbox)中。
for i=0 to file1.listcount-1
list1.additem （file1.list（i))
next
list1.refresh
2、想让程序顺序播放list1中的文件，也就是说当选择一个mp3文件播放完毕后，会接着打开下一个文件继续播放的问题。当选择一个mp3文件后，比如：电话.mp3，被选择的文件索引号是：fileindex=list1.listindex，这个文件播放完毕后，加入一行自动选中下一个文件的程序：list1.selected（fileindex+1）=true 并且fileindex <list1.listcount,用list1.list（fileindex+1)返回被选中的文件名，然后打开，播放！！！搞定

发表于：2007-10-29 19:21:503楼得分:0

不行啊
这样的话
liatbox里面显示的是
form1.frm等等之类的东西

发表于：2007-10-29 19:48:494楼得分:0

而且我并不是要把所有的歌曲都加进去
而是要把选中的歌曲加进去

发表于：2007-10-29 19:51:145楼得分:0

而且我是要把选中的歌曲加进去
不是把文件夹里面所有的

发表于：2007-10-30 11:15:266楼得分:0

将文件列表框file1（filebox）中选中的文件加到列表框list1（listbox)中：

dim i as long
for i=0 to file1.listcount-1
if file1.selected（)=true then "凡是选中的就添加
list1.additem file1.list（file1.listindex)
endi
next

发表于：2007-10-30 11:28:187楼得分:0

上面有错：
selected（) 改为：selected（i)

发表于：2007-10-30 23:05:478楼得分:0

运行之后有错误

发表于：2007-10-31 15:54:339楼得分:0

我知道哪错了
谢谢你啊
加分

发表于：2007-10-31 15:57:3210楼得分:0

我知道哪里错了
谢谢你啊
给你加分

发表于：2007-10-31 16:26:4311楼得分:0

那就把：list1.additem file1.list（file1.listindex)改为
list1.additem file1.list（i) 再试一下

发表于：2007-10-31 16:29:3812楼得分:0

具体是什么错误？能不能添加你择的文件？把你操作的代码贴出来看一看。

发表于：2007-10-31 16:34:0213楼得分:0

你的程序没有错
是我操作的时候出现了点小错误
不过
你的endif漏写成了endi
能不能再请教一下
怎么拒绝它重复加入信息啊

发表于：2007-10-31 17:04:3714楼得分:0

你的意思是说如果添加了一首“电话.mp3”，就是不能再添加这首歌曲了，不能有相同的！
好办。
添加的时候识别一下：

dim i as long,j as long
for i=0 to file1.listcount-1
if file1.selected（i)=true then "凡是选中的就添加
for j=0 to list1.listcount-1
if trim（list1.list（j)) <> trim（file1.list（file1.listindex)) then
list1.additem file1.list（file1.listindex)
list1.refresh
endif
next
endif
next

if trim（list1.list（j)) <> trim（file1.list（file1.listindex)) then 改为：
if instr（list1.list（j),trim（file1.list（file1.listindex))> 0 then 也许更好!

发表于：2007-10-31 17:10:0115楼得分:0

又错了：应为if instr（list1.list（j),trim（file1.list（file1.listindex)))=0 then

发表于：2007-10-31 19:53:5116楼得分:0

我只学一点点
不是很懂
但是你这样写不行
还是可以添加一样的歌曲

发表于：2007-10-31 20:52:4217楼得分:0

我知道怎么解决了
还是谢谢你

发表于：2007-11-01 09:29:4418楼得分:0

昨天晚上回去上机试了一下，添加一首歌曲没问题，如果要选择多首歌曲，那添加的只是你选择的最后一首歌曲。
如果要添加选择的多首歌曲，程序应改为如下才行：

dim i as long,j as long
for i=0 to file1.listcount-1
if file1.selected（i)=true then "凡是选中的就添加（不能重复）
for j=0 to list1.listcount-1
if trim（list1.list（j)) <> trim（file1.list（i)) then
list1.additem file1.list（i)
list1.refresh
endif
next
endif
next

还有一个问题：添加进来的歌曲只是文件名，没有路径，要将这个路径记住，也就是来自哪个文件夹。否则是没法播放的。

发表于：2007-11-01 09:32:3819楼得分:0

祝你成功！

下一篇：帮帮忙吧，怎样才能调用这段自定义函数啊
上一篇：★150元求获得winxp,vista唯一的硬件信息

其他资讯