VB中怎么样能播放背景音乐啊?

Question

请求赐教~~
MP3格式的
最还还能控制播放

Answer 1

用下面这两个函数都行。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 LongPrivate Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Answer 2

' MP3格式的用mciSendString好了。Option Explicit
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 LongPrivate Sub Command1_Click()
PlaySound "c:\windows\media\ding.wav"
End Sub' 播放指定磁盘中的音乐文件(.wav或.mid或.mp3)
' Filename 为音乐文件的路径及文件名
Function PlaySound(ByVal FileName As String) As Boolean
Dim cmd As String, exName As String
exName = Right(FileName, 3)
mciSendString "close " & exName, 0, 0, 0
cmd = "open " & FileName & " alias " & exName
mciSendString cmd, 0, 0, 0
PlaySound = mciSendString("play " & exName, 0, 0, 0)
End Function

Answer 3

能不能把MP3和编译的EXE文件弄在一起哦
就是只要一个EXE文件就可以播放MP3了

Answer 4

偶刚学VB哦
什么都不懂
高手请指点下
只要能在EXE里播放MP3音乐就可以了

Answer 5

可以把mp3放在资源文件里，用的时候解出来播放。
或者把wav放在资源文件里，可以直接播放。

Answer 6

编辑一个资源文件
资源文件 (.res) 中的资源是在“资源编辑器”窗口中添加、删除和编辑的。对于所有的资源类型，在技术上基本相同，但对字符串表资源的一些处理方面有所不同。要添加一个游标、位图、图标或自定义资源，请单击“资源编辑器”工具栏上适当的工具栏按钮。将打开一个“打开文件”对话框，允许选择现存的资源。将会把下一个那种资源类型可用的资源 ID 分配给新资源，同时基于您所使用的计算机系统 LCID，将语言 ID分配给新资源。自定义资源将同列为“自定义”的它们的类型一同被添加。要添加一个新的字符串表资源，请单击“编辑字符串表”工具栏按钮。一个资源文件只能包含一个字符串表资源，该字符串表资源可以包含多个字符串表。您可以向一个现存的字符串表资源添加附加的字符串表，或删除已经存在的字符串表并启动一个新的字符串表。要编辑一个资源条目，在“资源编辑器”树形视图中选中它并单击“编辑属性”工具栏按钮。这将显示出一个“编辑属性”对话框，可以在其中对所有的资源类型的语言 ID 进行编辑、对除字符串表资源以外的任何类型的资源 ID 进行编辑，并输入自定义资源的名称。字符串表资源在字符串表编辑器中进行编辑。“编辑属性”对话框也显示一个位图、游标和图标的缩略预览。要添加一个重复的游标、位图、图标或自定义资源，选择要复制的资源，并单击“重复”工具栏按钮。一个新的资源副本将同下一个为那一资源类型可用的资源 ID 一起被添加。要删除任何类型的资源，单击“删除”工具栏按钮。注意 资源编辑器不允许资源 Id的条目大于 32767。这是由于 Visual Basic 中 LoadResource 函数的限制。在另一个编辑器中创建的资源也许有高达 65535 的资源 ID。您可以在资源编辑器中打开这些文件，但是不能编辑任何 ID 大于32767 的资源。

Answer 7

' 下面是两个有用的函数Option Explicit
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Const SND_ASYNC = &H1     ' 异步播放
Const SND_MEMORY = &H4    ' lpszSoundName 指向一个内存文件
Const SND_NODEFAULT = &H2 ' 不使用缺省声音' 播放资源文件中的.wav文件
' ID 为.wav文件的标识号
Function PlayResSound(ByVal ID As Integer) As Boolean
Dim SoundBuffer() As Byte
SoundBuffer = LoadResData(ID, "CUSTOM")
PlayResSound = sndPlaySound(SoundBuffer(0), SND_ASYNC Or SND_NODEFAULT Or SND_MEMORY)
End Function' 将资源文件中的文件导出到硬盘
' ID 为资源文件中的文件标识号, FileName 为文件导出到硬盘后的存放路径及文件名
Function ExportFileFromRes(ByVal ID As Long, ByVal FileName As String) As Boolean
ExportFileFromRes = False
Dim bytDbt() As Byte
Dim intT As Integer
If Dir(FileName) <> "" Then
    ExportFileFromRes = False
    Exit Function
End If
bytDbt = LoadResData(ID, "CUSTOM")
intT = FreeFile
Open FileName For Binary As intT
    Put intT, , bytDbt
Close intT
ExportFileFromRes = True
End Function