要在任何机器上都能播放,需要把那首歌通过资源文件,加入你的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
原文地址:https://www.jb51.cc/vb/261075.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。