大家好!
我是vb初学者,这个是我的处女作,难免有些不近人意.现在我愿意把这个给大家共同使用,还望各位编程高手能够对此播放器加以改进,并且将改进的原文件传上来供大家一起学习!我在这里先谢谢浏览本贴的朋友们,我迫切希望能有更进一步的学习机会!

我的这个一次只能加一首哥,要想播放多首就必须多加几次,可以连续播放,但是就是不能随机播放
我也不知道该怎么办了,还是要靠大家了

谢谢!可是我是初学者,我不知道Rnd函数怎么用啊
可以给我举个例子吗?

我这个播放器在关闭的时候可以自动保存播放列表,下次再打开就可以直接读取
并且自动播放上次关闭前所播放的音乐文件
播放列表路径:
D:\save.txt '(播放列表)
D:\123.txt '(关闭前的播放文件位置)

我知道了,我希望有人能帮忙把控制声音的代码写一下传上来!

好难,里面有个类模块,我还没有接触过这个,不知道它的工作原理
还有"Const SND_NODEFAULT = &H2",其中的&H2是什么意思?是16进制数吗?

请大家注意:
代码有误!
将其中的"Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)"
里面的
For i = 0 To List1.ListCount - 1
Text1.Text = Text1.Text & "@" & List1.List(i) & "#"
Open "D:\save.txt" For Output As #1
Print #1, Text1.Text
Open "D:\123.txt" For Output As #2
Print #2, j
Close #1
Close #2
Next i
全部放到前面的if 条件语句中,否则的话播放列表内容会被保存数次
由于本人一时疏忽,幸好及时发现并纠正之,还望各位自行修改
如果本播放器还有什么错误还请多指正!把修改后的代码传上来以便学习
实在不好意思啊

[attach]6918[/attach]
我又做了一点修改,针对楼上的问题
前面两个已经解决,第三个问题"＠重复添加的歌曲没有提示,读歌曲列表，做内容比较"有待解决
另外加了一个控制音量的slider控件
音量的类模块我不大明白,我是直接拷贝过来用的,我想是一些api函数的调用再加上一些公共属性的定义吧...
总之可以控制音量了.
我想要是明白的话应该可以删除类模块里面规定麦克风的那些代码及函数,这样就更加简练了
不知道那位高手可以解释一下那个类模块啊

注意:
上面的工程文件打开会提示有错
下面是
clsvolume.cls文件
[attach]6919[/attach]
把这个类模块放进刚才的工程里面就可以了!