给你个 很简单的
创新互联专注网站设计,以设计驱动企业价值的持续增长,网站,看似简单却每一个企业都需要——设计,看似简洁却是每一位设计师的心血 十余年来,我们只专注做网站。认真对待每一个客户,我们不用口头的语言来吹擂我们的优秀,上千余家的成功案例见证着我们的成长。
Public Class Form1
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
‘ 声明函数 mciexcute 加入库 winmm.all
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call mciExecute("play E:\music\music\单身情歌.wma ")
'在 formload过程中 调用函数 mciexcute 里面 是 文件 路径
End Sub
End Class
你在axwindowsmediaplayer1.url=t之前把音乐播放器关一下,如果你的音乐一直播放的话其默认的播放文件地址是正在播放的那个,你那条刷新播放文件地址的命令可能没用。试试吧!!
My.Computer.Audio.Play("SoundFile.wav")
SoundFile.wav是你要播放的声音文件的路径
文章题目:vb点虐
开源音乐 vb播放音乐
浏览路径:https://www.cdcxhl.com/article12/ddposdc.html
成都网站建设公司_创新互联,为您提供域名注册、微信公众号、网站排名、企业建站、网站设计公司、网站内链
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联