要在任何机器上都能播放，需要把那首歌通过资源文件, 加入你的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
