请问各路高手，有谁知道在VB中有哪些API函数可以播放MP3音乐？
本人欲在VB中开发一个MP3播放器，但又不想用控件，若有谁知道有哪些API函数可以播放及控制MP3音乐的，请不吝赐教，谢谢！ 问题点数：0、回复次数：5Top
1 楼viena（维也纳N02）回复于 2005-01-03 09:13:54 得分 0
没有吧~Top
2 楼ljhdi（ ）回复于 2005-01-03 09:15:42 得分 0
2.不清楚！Top
3 楼jhtzz（执著男孩）回复于 2005-01-03 09:16:43 得分 0
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrRetumString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Declare Function GetShortPathName Lib "kernel32" _
Alias "GetShortPathNameA" (ByVal lpszLongPath As String, _
ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
mciSendString "pause " + MP3Name, 0&, 0, 0 '暂停
mciSendString "play " + MP3Name, vbNullString, 0, 0 '播放
TmpFile = GetShortName(TmpFile) '把文件路径变成短的
flag = mciSendString("open " + TmpFile, 0&, 0, 0) 'Open后边的空格一定不能丢
mciSendString "status " + TmpFile + " length", ret, 128, 0
ret = Left(ret, 8) '显示歌曲总长
Dim ret As String * 128
mciSendString "play " + TmpFile, vbNullString, 0, 0
mciSendString "status " + TmpFile + " mode", ret, 128, 0 ''得到设备的当前状态，是播放还是暂停等等
ret = Left(ret, 8) '在状态栏显示播放状态Top
4 楼5653325（等待开刃的刀）回复于 2005-01-03 19:22:27 得分 0
Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
也可以
Top
5 楼newsuperstar（与日月齐辉）回复于 2005-01-03 19:56:09 得分 0
学习Top
