VB初学者》为程序添加背景音乐的方法(windows mediaplayer控件).docVIP

VB初学者》为程序添加背景音乐的方法（windows mediaplayer控件） VB编程 2010-07-14 13:20:06 阅读458 评论3 ??字号：大中小?订阅 ? 方法一：运用windows mediaplayer控件添加程序背景音乐 ? ? 具体步骤如下 ? ? 1为VB添加windows mediaplayer部件 ctrl+T激活添加部件对话框（如右图），勾选如图所示的windows mediaplayer选项，单击应用、确定 ?工具栏里面出现按钮，双击添加控件 ? ? 2更改windows mediaplayer控件的属性 在窗体（下图）上出现windows mediaplayer控件 选中它，更改它的属性 ?? ? ? 其中的visible属性设置为false（如下图），这样的话，程序在运行的时候，windows mediaplayer控件是不可见的，其所播放的音乐就可以作为程序的背景音乐了 ? ? ? ? ? ? 3关于windows mediaplayer如何播放音乐文件的问题 解决办法有两种： 第一种：如上图所示，改变控件的URL属性，在百度音乐里搜索到自己希望的背景音乐，复制链接地址粘贴到这里（缺点是程序运行的时候，电脑没有联网或者网络资源不可用时就听不到背景音乐，网速查的时候，音乐会卡；优点是可以缩小程序文件体积） ? ? 第二种：把背景音乐整合到工程资源中（缺点是过程麻烦，程序文件体积大；优点是电脑程序启动后，电脑不需联网就可以听到背景音乐，缓冲过程几乎不存在，不受网速影响） 方法如下： 如下图所示，菜单栏选择外接程序——外界程序管理器——选中VB 6 资源编辑器，在右下角加载行为中勾选如右图两项后点击确定，在工具栏里会增加按钮——单击按钮打开“VB 资源编辑器” ? ? 在“VB 资源编辑器”里单击“添加自定义资源”按钮打开对话框：“打开一个自定义资源”，选择你需要的音频文件即可 ? 这样之后，调用资源需要用到LoadResDeta语句 代码参考 Private Sub Form_Load()Dim TempData() As ByteTempDataPath = f:\1.mp3 引号里你可以自定义盘符和路径作为资源加载的临时存储地址（临时文件） TempData = LoadResData(101, CUSTOM) 这是那个文件编号，具体可以自己在整合资源的时候更改，默认是101 Open TempDataPath For Binary Access Write As #1Put #1, , TempDataClose #1WindowsMediaPlayer1.URL = TempDataPathEnd Sub ? 运用如下语句可以在程序运行完后删除刚刚提到的临时文件 Private Sub Form_Unload(Cancel As Integer)Kill f:\1.mp3 刚刚你自己定义的路径（必须相同，否则程序报错）End Sub ? 方法二 运用API函数中的mciSendString函数完成多媒体播放 ? ? ?