新网创想网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
给你个 很简单的
创新互联专注网站设计,以设计驱动企业价值的持续增长,网站,看似简单却每一个企业都需要——设计,看似简洁却是每一位设计师的心血 十余年来,我们只专注做网站。认真对待每一个客户,我们不用口头的语言来吹擂我们的优秀,上千余家的成功案例见证着我们的成长。
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是你要播放的声音文件的路径