新网创想网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
乳源网站建设公司创新互联建站,乳源网站设计制作,有大型网站制作公司丰富经验。已为乳源千余家提供企业网站建设服务。企业网站搭建\外贸网站制作要多少钱,请找那个售后服务好的乳源做网站的公司定做!
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call mciExecute("play F:\MUSIC\WMA\guitar\强调乐队-无声的叹息.mp3 ")
End Sub
复制可不怎么好吧,那些dll你都要有才行,vb.net做安装程序也不麻烦,只要添加一个新项目--安装向导,根据提示按下去就是了
哎~~~都说得很清楚了,你还......再给个提示吧,用timeofday来提取当前时间,和自定义时间对比
给你个 很简单的
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
1、直接进入VB的相关窗口,选择标准EXE打开。
2、这个时候弹出新的对话框,需要找到Windows Media Player并点击确定。
3、下一步如果没问题,就根据实际情况设置其中的参数。
4、在文件那里,选择保存工程。
5、等完成上述操作以后,继续点击确定。
6、这样一来会实现VB按照图示播放背景音乐,即可达到目的了。
推荐到一个人的百度空间里去看,
里面有DirectSound的教程
还有DirectInput、DirectDraw的教程
但是DirectSound只能播放wav
如果想播放像mp3、ogg之类的音乐,你可以使用AudioVideoPlayback
My.Computer.Audio.Play("SoundFile.wav")
SoundFile.wav是你要播放的声音文件的路径