vb 载入自己目录的音乐

 
要在任何机器上都能播放,需要把那首歌通过资源文件, 加入你的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
  • 1
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 1
    评论
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

jakenli和尚

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值