Question

vb 中用OLE控件嵌入音乐 如何自动播放？？

如题 用ole插入了一个mp3 再插入一个wmp控件 如何让form1加载时让mp3在wmp中自动播放？就是背景音乐的意思！ 我不懂wmp的用法啊！！！求大神！

Answer 1

不需要OLE控件，设置WMP的URL属性，运行就自动播放了，另外，如果不需要界面，设置 visible=false,windowlessvideo=true

追问

我是打算把音频嵌入exe中的 因为要可能要在别的电脑上运行呀 所以该怎么弄啊？？能不能给我代码的实例喔，这样能懂。

追答

要直接添加音乐文件到EXE文件，需要用到资源文件，菜单：外接程序-外接程序管理器，加载“VB6 资源管理器”，添加“自定义资源”，名称默认是101，以下是播放代码：
Private Sub Command1_Click()
Dim resFile() As Byte
'从资源文件提取数据（二进制数据）
resFile = LoadResData(101, "custom")
'将数据导出到临时文件（存放位置自定，注意用完后清除），后缀和原始文件一致
Open "d:\tt.wma" For Binary As #1
Put #1, , resFile
Close #1
'播放
wmp.URL = "d:\tt.wma"
End Sub