要在任何机器上都能播放,需要把那首歌通过资源文件,加入你的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
vb 载入自己目录的音乐
发布时间:2020-12-16 22:52:00 所属栏目:大数据 来源:网络整理
导读:要在任何机器上都能播放,需要把那首歌通过资源文件,加入你的EXE文件里. 运行时释放临时文件,关闭前删除临时文件. 工具 = VB资源编辑器 = "添加自定义资源"按钮(倒数第二) = 选择你要播放的歌曲 此时 VB资源编辑器 里有一个 "CUSTOM" 项,其下有资源 "101". D
(编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |