vb 怎么载入自己目录的音乐.急!

来源：百度知道 编辑：UC知道 时间：2024/04/27 08:30:10
比如说我已经加了音乐控件.我想要实现的效果是一点一个叫"音乐"的按钮就播放音乐.要怎么加代码.要想在别的电脑也能运行的.高手教一下.最好是详细点.谢谢!

要在任何机器上都能播放，需要把那首歌通过资源文件, 加入你的EXE文件里. 运行时释放临时文件, 关闭前删除临时文件.

工具 => VB资源编辑器 => "添加自定义资源"按钮(倒数第二) => 选择你要播放的歌曲

此时 VB资源编辑器 里有一个 "CUSTOM" 项, 其下有资源 "101".

Dim sTempMp3Path As String

'打开时释放临时文件
Private Sub Form_Load()
Dim bMp3() As Byte

'自定义释放的文件名(扩展名按原音乐的扩展名)
sTempMp3Path = App.Path & "\temp.mp3"

bMp3 = LoadResData(101, "CUSTOM") '读取资源

'释放资源
Open sTempMp3Path For Binary Access Write As #1
Put #1, , bMp3
Close #1

End Sub

Private Sub 音乐_Click()
WindowsMediaPlayer1.URL = sTempMp3Path
End Sub

'关闭前删除临时文件
Private Sub Form_Unload(Cancel As Integer)
Kill sTempMp3Path
End Sub

可以用API
mcisenstring
如果你用的控件是media player,可以用URL属性的。比如说：
mediaplayer1.URL="音乐的路径"