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

一款播放器，使用的是windows media player控件
选择歌曲用了drivelist dirlist flielist控件
但我不知道怎么将想播放的歌曲添加到listbox里面
然后使播放器能够连续播放这些歌曲
当然最好可以在listbox里用上滚动条 --------------------编程问答--------------------   list1.add 添加你要弄的歌曲
  在windows media play  结束事件中

触发list1 下移

list1.change事件中播放 --------------------编程问答-------------------- 这个问题很简单。思路是这样的:
    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)返回被选中的文件名，然后打开，播放！！！     搞定 --------------------编程问答-------------------- 不行啊
这样的话
liatbox里面显示的是
form1.frm等等之类的东西 --------------------编程问答-------------------- 而且我并不是要把所有的歌曲都加进去
而是要把选中的歌曲加进去 --------------------编程问答-------------------- 而且我是要把选中的歌曲加进去
不是把文件夹里面所有的 --------------------编程问答-------------------- 将文件列表框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
--------------------编程问答-------------------- 上面有错：
Selected() 改为：Selected(i) --------------------编程问答-------------------- 运行之后有错误 --------------------编程问答-------------------- 我知道哪错了
谢谢你啊
加分 --------------------编程问答-------------------- 我知道哪里错了
谢谢你啊
给你加分                    --------------------编程问答-------------------- 那就把：List1.AddItem   File1.List(File1.ListIndex)改为
List1.AddItem   File1.List(i) 再试一下    --------------------编程问答-------------------- 具体是什么错误？能不能添加你择的文件？把你操作的代码贴出来看一看。 --------------------编程问答-------------------- 你的程序没有错
是易做图作的时候出现了点小错误
不过
你的endif漏写成了endi
能不能再请教一下
怎么拒绝它重复加入信息啊 --------------------编程问答-------------------- 你的意思是说如果添加了一首“电话.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 也许更好!

--------------------编程问答-------------------- 又错了：应为if InStr(List1.List(j),trim(File1.List(File1.ListIndex)))=0 then    --------------------编程问答-------------------- 我只学一点点
不是很懂
但是你这样写不行
还是可以添加一样的歌曲 --------------------编程问答-------------------- 我知道怎么解决了
还是谢谢你 --------------------编程问答-------------------- 昨天晚上回去上机试了一下，添加一首歌曲没问题，如果要选择多首歌曲，那添加的只是你选择的最后一首歌曲。
如果要添加选择的多首歌曲，程序应改为如下才行：

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

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

补充：VB ,  基础类