Question

求一个VB制作 MP3播放器的代码,不用MP3控件的,我给100分啊!!

说得清楚点儿的
不会出错的
可以播放LRC歌词的
能看时长,暂停,播放.停止.下一首,上一首,打开音乐文件,保存播放列表的,歌曲进度,可以播放*.mp3 , *.wma的就行了
谢谢
最好是能正常用的啊!!!
用控也行啊,只要找得到那个控件就没问题.代码呢?
我这里有LRC的歌词
主要是没有一个用VB6.0编出来的LRC播放器
你们说的好像都不行呢!!!

Answer 1

部件中添加wimdows media player

其相关使用参见如下资料

[基本属性]

URL:string 可以指定媒体位置
enableContextMenu:Boolean 显示/不显示播放位置的右键菜单
fullScreen:boolean 全屏显示
stretchToFit:boolean 非全屏状态时是否伸展到最佳大小
uMode:string 播放器的模式，full：有下面的控制条; none：只有播放部份没有控制条
playState:integer 当前控件状态，下面是三种基本状态：
3：正在播放
2：暂停
1：已停止
状态变化时会触发OnStatusChange事件

[controls]
可通过WindowsMediaPlayer.controls对播放器进行控制并取得相关的一些信息：
controls.play; 播放
controls.stop; 停止
controls.pause; 暂停
controls.currentPosition：Double 当前播放进度
controls.currentPositionString：string 时间格式的字符串 "0:32"

[currentMedia]
可以通过WindowsMediaPlayer.currentMedia取得当前媒体的信息
currentMedia.duration Double 总长度
currentMedia.durationString 时间格式的字符串 "4:34"

[settings]
可以通过WindowsMediaPlayer.settings对播放器进行设置，包括音量和声道等。
settings.volume:integer 音量 （0-100）
settings.balance:integer 声道，通过它应该可以进行立体声、左声道、右声道的控制。但对应的取值尚不清楚。

做播放器就简单多了

Answer 2

LRC 文件其实是文本文件的变种。在LRC文件上单击鼠标右键，选择打开方式-记事本，可以看到，它是由歌词文本和时间文本组成的。用VB做LRC播放的时候，可以打开文本的方法打开它。然后由字符串处理函数分离时间与歌词信息。再根据歌曲播放的时间来高亮显示哪一行歌词。
open "LRC文件路径" for input as #1 '打开歌词
.
.
.
.

Close #1'关闭

播放可以用API mciSendString
Private Declare Function mciSendString(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Dim dwReturn as String * 256
if mciSendString("Open " + "路径" + " Alias MCI",dwReturn,256,0)=0 then x = mciSendString("Play MCI",dwReturn,256,0)

'IF后面那个表达式的意思是如果打开音频文件成功的话，那么播放它

x = mciSendString("Close MCI",dwReturn,256,0)
'关闭文件

Status alias_name[length][mode][position]:Status命令用来取得设备的状态.如:该媒体文件的长度,该媒体文件所处状态,该媒体文件的当前位置等.

'对话框提示当前播放进度
x = mciSendString("Status MCI position" ,jindu,256,0)
msgbox jindu

Answer 3

使用windowMediaplayer就可以了
lrc歌词，部分需要自己实现。
大概过程
首先读出LRC文件，按其中的时间，把每句歌词存入数组。
（数组最好是自定义类型的如：
lrc(0).time="00:00:00"
lrc(0).lrc="风中的承诺"
lrc(1).time="00:00:04"
lrc(1).lrc="演唱：李翊君 歌词制作：本人"

——这个过程有些复杂，可以做到，我做过。）
使用一个TIMER在其中获取windowmediaplayer播放进度转换为时间
从歌词数组中找到对应的时间，并显示其对应的歌词。

主要的工作就是把读取lrc文件后,把其中的内容转换为数组.

Answer 4

发消息告诉我你的邮箱(注明要MP3源码),我发几个完整的源码程序给你,用不用控件的都有.

Answer 5

可以播放LRC歌词的不用控件，真不知道怎么做，其余的好实现