首先,需要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"中的后缀名。无法拨放音频。

亲测可用。

音乐播放器源代码(免费复制)相关推荐

  1. 超级炫酷界面C++编写音乐播放器,免费开源代码!

    VB编写的一套MP3音乐播放机程序,界面模仿了鼎鼎大名的Winamp播放器,使用了增强型的皮肤插件,资源文件完整.打开Qt Creator,创建一个new project,项目名称随你喜欢(我的是Mu ...

  2. autojs免root脚本引擎编写的本地音乐播放器源代码开源

    说明 本文提供的代码仅供参考.不建议用于生产环境. 可能有些地方在最新版本的Auto.js上面需要做修改,才能运行. Auto.js简介 Auto.js是利用安卓系统的"辅助功能" ...

  3. MFC简易音乐播放器

    音乐播放器源代码 /******做着玩的,很简易,有打开,播放,暂停,退出等功能,只能播放本地音乐,没有实现联网功能,支持wav格式和MP3.*******/ MusicPlayerDlg.cpp: ...

  4. TXT音乐播放器与DirectSound与C++,开发笔记与EXE免费下载(一)

    一.前言 之前提到,使用C语言开发TXT音乐播放器.使用PlaySound方法播放wav文件时,无法同时播放多个wav文件:当开始播放下一个wav文件时,之前正在播放的wav文件就会停止,导致音乐播放 ...

  5. js插件---10个免费开源的JS音乐播放器插件

    js插件---10个免费开源的JS音乐播放器插件 一.总结 一句话总结:各种插件都有很多,多去找. 二.js插件---10个免费开源的JS音乐播放器插件 亲测可用 音乐播放器在网页设计中有时候会用到, ...

  6. php项目网页音乐播放器插件,10个免费开源的JS音乐播放器插件

    10个免费开源的JS音乐播放器插件 三月 24, 2015 评论 (3) Sponsor 音乐播放器在网页设计中有时候会用到,比如一些时尚类.音乐或影视类等项目,但这些网页播放器插件比较少见,所以这里 ...

  7. 如何将免费的WordPress音乐播放器添加到您的网站

    任何允许用户发现,购买,共享或下载音乐或其他声音效果的网站都应始终具有音频播放器. 每个用户都想预览音频或音乐,以确定是否要购买或共享. 为用户提供从网页本身播放此音频的选项,而无需下载任何内容,将带 ...

  8. 推荐四款非常好用的免费音乐播放器

    不知道大家在工作的时候,是不是跟我一样,喜欢听着自己熟悉的旋律,心情也会很好. 但是,原来的很多经典歌曲,要么改收费一首歌几块钱.要么是翻唱的,听起来也没有原版好,对于我们这些只是偶尔听听歌的.写写东 ...

  9. 【毕业设计】28-基于单片机的音乐播放器简易音乐播放器设计(原理图+源代码+仿真工程+答辩PPT+答辩论文)

    typora-root-url: ./ [毕业设计]28-基于单片机的音乐播放器简易音乐播放器设计(原理图+源代码+仿真工程+答辩PPT+答辩论文) 文章目录 typora-root-url: ./ ...

最新文章

  1. 3.Servlet(二)
  2. boost::unique_copy相关的测试程序
  3. 正则表达式入门之字符匹配
  4. c 11 主要的新语言特性,关于c ++ 11:有没有办法确定C ++编译器实现的语言特性?...
  5. .NET 5 部署在docker上运行
  6. ArcGIS Server for JavaScript 3.3 的安装部署
  7. 程序员转行杀猪是种什么体验?
  8. RSA攻击手法及相应例题解析
  9. 关系数据库到Hbase数据库的数据迁移
  10. AI产品经理-什么是人工智能
  11. 超级牛散股神叶健颜专找重组题材股,精准买入,不服不行。
  12. 课时31:永久储存:腌制一缸美味的泡菜
  13. 细思极恐!GPT-4太强,发明者们也不懂!智能到底是怎么突然「涌现」的?
  14. android图片转视频
  15. 手机安全领域的领航者
  16. win7电脑,勾选“显示隐藏的文件、文件夹和驱动器”后自动取消勾选的解决方法...
  17. macos 菜单栏 oc_如何启用macOS的深色菜单栏和Dock
  18. 什么是压力测试,在哪里做压力测试,软件压力测试存在哪些问题?
  19. 在arduino中ESP8266的GPIO引脚及控制序号
  20. 去除字符串中的表情符号以及判断字符串中是否存在表情符号

热门文章

  1. 小程序文字循环滚动动画(完美解决)
  2. 计算机辅助翻译工具(CAT)中的正则表达式应用(职业译员必备技能)
  3. 【Python飞机大战课程设计及源代码】
  4. Jenkins 打包部署 vue项目
  5. 薪资翻倍!普通程序员是如何成功转行大数据工程师?
  6. Java Apache中的高危漏洞复现
  7. 11个国内外免费域名解析服务
  8. mysqlinstaller安装教程80
  9. 开迅视频视频李强 -- 2011中国移动互联网创业大赛
  10. diy 扫地机器人 滚刷_扫地机拆解:滚刷设计篇_iRobot Roomba 飓风版_家电小家电-中关村在线...