VB中如何播放音乐，最好给个全一点的代码

编写一段VB代码来播放指定音乐！~

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub Command1_Click()
FileName = "d:\musicom.mp3"
mciSendString "Close MM", 0, 0, 0
mciSendString "Open " & FileName & " Alias MM", 0, 0, 0
mciSendString "Play MM", 0, 0, 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
mciSendString "Close MM", 0, 0, 0
End Sub

'可以通过VB部件 里面的
’Windows Media Player

Private Sub Form_Load()
WindowsMediaPlayer1.URL = "..." ' 歌曲的路径
WindowsMediaPlayer1.Visible = False
End Sub

声明：
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength
As Long, ByVal hwndCallback As Long) As Long
代码：
Dim returnstring As String
FileName As String
returnstring = Space(127)
FileName = "C:\A1.avi"
erg = mciSendString("open " & Chr$(34) & FileName & Chr$(34) & " type avivideo alias video", returnstring, 127, 0)
erg = mciSendString("set video time format ms", returnstring, 127, 0)
erg = mciSendString("play video from 0", returnstring, 127, 0)
'记着关闭！
erg = mciSendString("close video", returnstring, 127, 0)

如果声音在资源文件内
假设这个声音文件的关键字为"HAHA",先定义一个API函数:
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, Byval uFlags As Long) As Long
注意：必须把的lpszSoundName类型设成Any，不能按照win32api.txt文件中的定义
Const SND_ASYNC = &H1
Const SND_MEMORY = &H4
再输入如下代码：
Dim Toms() As Byte
Toms=LoadResData("HAHA","WAVE")
sndPlaySound Toms(0), SND_MEMORY Or SND_ASYNC
这样就OK了！

楼上怎么都引用了控件?

在D盘根目录下放一个.wav音乐文件先

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

Private Sub Form_Load()
call sndPlaySound("D:\music.wav", &H1)
End Sub

对，在部件里面加入 Windows Media Player。
然后用 WindowsMediaPlayer1.url="C:\Sound.wav"

如果你用 2002 年以后的新版VB(VB.Net) 也可以用这个：
My.Computer.Audio.Play("C:\Sound.wav")

我建立的是WindowsMediaPlayer部件

Sub Command1_Click()'开始播放
WMP1.URL ="c:\对象.mp3"
End Sub

Sub Command1_Click()'停止播放
WMP1.Close
End Sub

用VB编的媒体播放器
http://www.chinacodes.net/downinfo/16431.html

---

元谋县15521432409： VB中如何播放音乐,最好给个全一点的代码 - ？
资万安博： 声明:Declare Function mciSendString Lib ＂winmm.dll＂ Alias ＂mciSendStringA＂ (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ...

元谋县15521432409： vb中怎么播放歌曲 - ？
资万安博： 首先,你系统中自带的Mediaplayer一定没有问题,否则肯定不能播放音乐.适当调节音频,防止出现静音或者很小声音,你自己听不到.再次,你需要在VB中使用该插件,否则程序也不能运行.

元谋县15521432409： 怎么在在vb中播放音乐 - ？
资万安博： 可以使用控件,也可以使用API,我比较喜欢的是用控件的办法.用WMP:有界面的,你在工具里添加;无界面的,用代码实现 set wmp=createobject(＂WMPlayer.OCX＂) wmp.url=＂歌曲文件名.mp3＂ 如果是把声音文件内置,那么建议用API

元谋县15521432409： vb播放音乐!!!!!!! - ？
资万安博： 这个控件本身耗内存,如果内存小,可能会很卡.如果用到的ACTIVE越多,你会感觉更卡,也有可能URL地址是网络地址,加载慢. 我做了一个播放器,也是用MEDIEA控件,一般在10M左右正常.

元谋县15521432409： VB如何在后台播放背景音乐请各位高手求救,如何在让vb在后台播放 ？
资万安博： 可以使用Windows Media Player控件来播放所有mediaplayer支持的音乐文件;如果只需要播放wav、mid格式的音乐,可以使用API里面的多媒体函数,这样比较节约系统资源. 如果要把整个VB程序置于后台,就把from的Visible属性设置为False,ShowInTaskBar设为False,程序就不会出现在任务栏里.

元谋县15521432409： 怎样在VB中播放背景音乐 - ？
资万安博： 简单!!!使用mciExecute 语句!!!例如 mciExecute ＂play ＂ & App.Path + ＂\1.mp3＂ 程序和音乐在同一文件夹里,1.mp3是音乐文件,也可以是其他的音乐格式.

元谋县15521432409： 如何在VB中播放音乐,添加FLASH以及GIF图片? - ？
资万安博： 播放音乐可以在 部件->控件 中选中Windows Media Player,然后在其属性栏中的URL中加入要播放的音乐的地址即可 播放Flash可以在 部件->控件中 选中shockwave flash控件,然后在代码中用shockwaveflash1.movie=xxx\xxx\xxx.swf加入要播放...

元谋县15521432409： vb怎么播放音乐文件?？
资万安博： 添加控件,或调用!windows media player 控件就可以!设置url属性就能打开音乐文件了!

元谋县15521432409： 如何在vb窗口播放背景音乐? - ？
资万安博： 一般就用MCI控件或者MCI的API实现.以前做一个小游戏,用的是API,音乐部分代码如下:Private Declare Function mciSendString Lib ＂winmm.dll＂ Alias ＂mciSendStringA＂ (ByVal lpstrCommand As String, ByVal lpstrReturnString As ...

元谋县15521432409： vb中如何播放音乐 - ？
资万安博： '可以通过VB部件 里面的 'Windows Media Player Private Sub Form_Load() WindowsMediaPlayer1.URL = ＂...＂ ' 歌曲的路径 WindowsMediaPlayer1.Visible = False End Sub