VB之给你的程序加背景音乐

ximo

庆祝开新板块,特来一帖,哈哈,有钱给钱,有分砸分哈~[s:39][s:39]

好多人都想给自己的程序加个背景音乐,但又不想附带个音乐文件,而想集成在一个程序中.
那怎么实现呢?呵呵,简单的给大家讲一下.
当然方法很多,以下仅是我个人喜欢用的方法.
1.添加音乐文件
由于不想附带音乐文件,所以只能把音乐文件集成在程序中,那就是添加资源文件
首先,添加资源编辑器,然后把你所要加的音乐文件添加到资源中,接着保存即可!
2.释放音乐文件
要想播放音乐,当然得把音乐文件给释放出来,然后再去播放,(由于我不知道怎么直接播放资源中的音乐文件,所以只能用笨办法,呵呵)

 Public Function SaveFileFromRes(vntResourceID As Variant, sType As String, sFileName As String) As BooleanDim bytImage() As ByteDim iFileNum As IntegerOn Error GoTo SaveFileFromRes_ErrSaveFileFromRes = TruebytImage = LoadResData(vntResourceID, sType)iFileNum = FreeFile Open sFileName For Binary As iFileNumPut #iFileNum, , bytImageClose iFileNumExit FunctionSaveFileFromRes_Err:SaveFileFromRes = False: Exit FunctionEnd Function 

Private Sub Form_Load()SaveFileFromRes 101, "CUSTOM", "C:\WINDOWS\system32\1.mid"End Sub

3.接着就是去播放你的音乐文件了
我的思路是用WMP控件完成
添加个WMP控件,由于是背景音乐,所以不能让别人看见你的播放器
故把WMP的可见属性改为假
然后在Form_Load事件中加下面这行播放代码即可

WindowsMediaPlayer1.URL = "C:\WINDOWS\system32\1.mid"

OK,大致的过程就完成了,启动你的程序,应该就有背景音乐了吧.HOHO~
下面接着来优化下代码:
优化一:让背景音乐循环播放

Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)If NewState = 1 ThenWindowsMediaPlayer1.Controls.playEnd IfEnd Sub

优化二:
退出程序时把释放的音乐文件删除

Private Sub Form_Unload(Cancel As Integer)On Error Resume NextKill "C:\WINDOWS\system32\1.mid"End Sub

这样,就差不多了,大功告成!

附件提供个完整的工程文件!

本文只是抛砖引玉,有什么好方法记得告诉我!
作者徐超,转载著名出处!谢谢合作!

niliu

沙发沙发。。 新区第一沙发

天蓝色

果然易语言比VB简单多了 易语言就一句代码

niliu

E.. 几句代码完成其他语言的几十行代码是常有的事

hackwm

这么说E还蛮强大的呀!!!

Tale

就是体积和 安全性加稳定行有点差

龙影天子

VB很强大啊，好好学习一下啊

admrty

我正找这样的教程了,谢谢分享

rock_out

一直想搞个这样的效果，今天终于找到方法了，谢谢楼主啊！