在VB编程中,如何实现加入声音
2016-11-23 23:24
309 查看
添加一个WindowsMediaPlayer控件放到窗体里,然后写代码: Private Sub Command1_Click() WindowsMediaPlayer1.URL = "123.mp3" '这句代码的意思是播放程序所在文件夹中的123.mp3 'URL后面添地址,可以是网址
第一种Private Sub Form_Load()
Set a = CreateObject("wmplayer.ocx")
a.url = "E:\mp3\花好月圆.mp3" '你可在此改成你的乐曲
a.settings.playCount = 99999
End Sub
Private Sub Form_Unload(Cancel As Integer)
a.Controls.stop
a.Close
Set a = Nothing
End Sub
第二种 加个Windows Media Player控件
相关文章推荐
- 如何编程实现VB.NET数据集中的数据导出到EXCEL
- Linux Unicode 编程---如何(在程序中)加入并使用 Unicode 以实现外语支持
- Oracle PL/SQL编程之如何实现程序来统计另一个程序的性能
- Zookeeper 进阶之——Zookeeper编程示例(如何使用Zookeeper实现屏障Barriers和队列Queues)
- 如何编程实现扩展右键菜单之三:调试Shell扩展DLL
- vb编程中钩子的实现及应用
- Vb.net 如何实现报表打印
- 如何实现VB与EXCEL的无缝连接
- 安卓编程如何实现 卸载残留文件
- VB编程如何态改变数据环境动的数据库链接
- 如何编程实现二维图形的旋转
- Android实战: 如何实现 图片分享菜单加入指定程序
- [VB.NET]vb.net里如何实现多表关联查询并将结果集放入dataset中呢?请举个例子吧!
- 如何用VB实现Modbus串行通讯
- 编程求阶乘的值(用VB实现)
- 自问自答:在VB中如何实现像C++一样printf的功能
- 如何实现VB中打开图像文件时的预览功能
- 如何编程实现删除一个sap的在线用户
- 如何在mycncart和opencart的商品描述中加入土豆网或优酷的视频链接并实现自适应屏幕大小?
- VB开发——如何实现只允许输入汉字的文本框