【VB开源代码栏目提醒】:网学会员,鉴于大家对VB开源代码十分关注,论文会员在此为大家搜集整理了“VB初学者》为程序添加背景音乐的方法(windows_mediaplayer控件) - 开发文档”一文,供大家参考学习!
VB 初学者》为程序添加背景音乐的方法(windows mediaplayer 控件) VB 编程 2010-07-14 13:20:06 阅读 458 评论 3 字号:大中小 订阅 方法一:运用 windows mediaplayer 控件添加程序背景音乐 具体步骤如下 1为 VB 添加 windows mediaplayer 部件 ctrlT 激活添加部件对话框(如右图),勾选如图所示的 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 Byte TempDataPath f:1.mp3 引号里你可以自定义盘符和路径作为资源加载的临时存储地址(临时文件)TempData LoadResData101 CUSTOM 这是那个文件编号,具体可以自己在整合资源的时候更改,默认是 101 Open TempDataPath For Binary Access Write As 1 Put 1 TempData Close 1 WindowsMediaPlayer1.URL TempDataPath End Sub 运用如下语句可以在程序运行完后删除刚刚提到的临时文件 Private Sub Form_UnloadCancel As Integer Kill f:1.mp3 刚刚你自己定义的路径(必须相同,否则程序报错) End Sub 方法二 运用 API 函数中的 mciSendString 函数完成多媒体播放