音乐播放器源代码(免费复制)
首先,需要Drive1、File1、Dir1和WindowsMediaPlayer1。
那么WindowsMediaPlayer在哪里?
1、对左侧工具栏右键,找到部件。
2、在对话框中,下拉,找到WindowsMediaPlayer,如图:
接下来,输入代码:
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_DblClick()
Dim tmpF As String
tmpF = File1.Path
If Right(tmpF, 1) <> "\" Then tmpF = tmpF & "\"
tmpF = tmpF & File1.List(File1.ListIndex)
WindowsMediaPlayer1.URL = tmpF
WindowsMediaPlayer1.Controls.play
Label1 = tmpF
End Sub
Private Sub Form_Load()
File1.Pattern = "*.mp4"
End Sub
备注:此代码仅支持MP4文件,如需改变,请在 File1.Pattern = "*.mp4" 中修改 "*.mp4"中的后缀名。无法拨放音频。
亲测可用。
音乐播放器源代码(免费复制)相关推荐
- 超级炫酷界面C++编写音乐播放器,免费开源代码!
VB编写的一套MP3音乐播放机程序,界面模仿了鼎鼎大名的Winamp播放器,使用了增强型的皮肤插件,资源文件完整.打开Qt Creator,创建一个new project,项目名称随你喜欢(我的是Mu ...
- autojs免root脚本引擎编写的本地音乐播放器源代码开源
说明 本文提供的代码仅供参考.不建议用于生产环境. 可能有些地方在最新版本的Auto.js上面需要做修改,才能运行. Auto.js简介 Auto.js是利用安卓系统的"辅助功能" ...
- MFC简易音乐播放器
音乐播放器源代码 /******做着玩的,很简易,有打开,播放,暂停,退出等功能,只能播放本地音乐,没有实现联网功能,支持wav格式和MP3.*******/ MusicPlayerDlg.cpp: ...
- TXT音乐播放器与DirectSound与C++,开发笔记与EXE免费下载(一)
一.前言 之前提到,使用C语言开发TXT音乐播放器.使用PlaySound方法播放wav文件时,无法同时播放多个wav文件:当开始播放下一个wav文件时,之前正在播放的wav文件就会停止,导致音乐播放 ...
- js插件---10个免费开源的JS音乐播放器插件
js插件---10个免费开源的JS音乐播放器插件 一.总结 一句话总结:各种插件都有很多,多去找. 二.js插件---10个免费开源的JS音乐播放器插件 亲测可用 音乐播放器在网页设计中有时候会用到, ...
- php项目网页音乐播放器插件,10个免费开源的JS音乐播放器插件
10个免费开源的JS音乐播放器插件 三月 24, 2015 评论 (3) Sponsor 音乐播放器在网页设计中有时候会用到,比如一些时尚类.音乐或影视类等项目,但这些网页播放器插件比较少见,所以这里 ...
- 如何将免费的WordPress音乐播放器添加到您的网站
任何允许用户发现,购买,共享或下载音乐或其他声音效果的网站都应始终具有音频播放器. 每个用户都想预览音频或音乐,以确定是否要购买或共享. 为用户提供从网页本身播放此音频的选项,而无需下载任何内容,将带 ...
- 推荐四款非常好用的免费音乐播放器
不知道大家在工作的时候,是不是跟我一样,喜欢听着自己熟悉的旋律,心情也会很好. 但是,原来的很多经典歌曲,要么改收费一首歌几块钱.要么是翻唱的,听起来也没有原版好,对于我们这些只是偶尔听听歌的.写写东 ...
- 【毕业设计】28-基于单片机的音乐播放器简易音乐播放器设计(原理图+源代码+仿真工程+答辩PPT+答辩论文)
typora-root-url: ./ [毕业设计]28-基于单片机的音乐播放器简易音乐播放器设计(原理图+源代码+仿真工程+答辩PPT+答辩论文) 文章目录 typora-root-url: ./ ...
最新文章
- 3.Servlet(二)
- boost::unique_copy相关的测试程序
- 正则表达式入门之字符匹配
- c 11 主要的新语言特性,关于c ++ 11:有没有办法确定C ++编译器实现的语言特性?...
- .NET 5 部署在docker上运行
- ArcGIS Server for JavaScript 3.3 的安装部署
- 程序员转行杀猪是种什么体验?
- RSA攻击手法及相应例题解析
- 关系数据库到Hbase数据库的数据迁移
- AI产品经理-什么是人工智能
- 超级牛散股神叶健颜专找重组题材股,精准买入,不服不行。
- 课时31:永久储存:腌制一缸美味的泡菜
- 细思极恐!GPT-4太强,发明者们也不懂!智能到底是怎么突然「涌现」的?
- android图片转视频
- 手机安全领域的领航者
- win7电脑,勾选“显示隐藏的文件、文件夹和驱动器”后自动取消勾选的解决方法...
- macos 菜单栏 oc_如何启用macOS的深色菜单栏和Dock
- 什么是压力测试,在哪里做压力测试,软件压力测试存在哪些问题?
- 在arduino中ESP8266的GPIO引脚及控制序号
- 去除字符串中的表情符号以及判断字符串中是否存在表情符号
热门文章
- 小程序文字循环滚动动画(完美解决)
- 计算机辅助翻译工具(CAT)中的正则表达式应用(职业译员必备技能)
- 【Python飞机大战课程设计及源代码】
- Jenkins 打包部署 vue项目
- 薪资翻倍!普通程序员是如何成功转行大数据工程师?
- Java Apache中的高危漏洞复现
- 11个国内外免费域名解析服务
- mysqlinstaller安装教程80
- 开迅视频视频李强 -- 2011中国移动互联网创业大赛
- diy 扫地机器人 滚刷_扫地机拆解:滚刷设计篇_iRobot Roomba 飓风版_家电小家电-中关村在线...