VB 背景音乐

来源：百度知道 编辑：UC知道 时间：2024/05/06 09:54:28
如何在程序运行时能有背景音乐，不需要太复杂的播放器控件，只要能有音乐就可以。
不要出现那个Media Player只播放声音就可以了

打开VB后点左边工具栏的OLE,在窗体上画一个OLE控件,然后,什么也不要加载,把下边代码放入:

Private Sub Form_Load()
OLE1.Class = "soundrec"
OLE1.SourceDoc = "C:\WINDOWS\Media\Windows XP 启动.wav"
OLE1.Action = 1
OLE1.Action = 7
End Sub

隐藏:选中OLE控件,在右下角找到Visible属性,改成false就可以了

先在声明处输入：

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

打开的代码：
mciExecute "open" & " " & "音乐路径"

播放的代码：
mciExecute "play" & " " & "音乐路径"

关闭的代码：
mciExecute "close" & " " & "音乐路径"

暂停的代码：
mciExecute "pause" & " " & "音乐路径"

停止的代码：
mciExecute "stop" & " " & "音乐路径"

选用一个Media Player控件,其属性visible = false
其属性url = MP3地址 直接在控件使用不用引号

就可以了