大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
''''''''''' WAV/wma背景音乐
创新互联是一家专业提供蓟州企业网站建设,专注与成都做网站、网站建设、H5技术、小程序制作等业务。10年已为蓟州众多企业、政府机构等服务。创新互联专业网站建设公司优惠进行中。
Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As New Media.SoundPlayer
a.SoundLocation = "c:\windows.wav"
a.PlayLooping()
End Sub
End Class
给你个 很简单的
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
需要用到COM控件,例如media player、Real player等,或者用 .NET 自带的类库 System.Media下面的 SoundPlayer来播放音乐
推荐到一个人的百度空间里去看,
里面有DirectSound的教程
还有DirectInput、DirectDraw的教程
但是DirectSound只能播放wav
如果想播放像mp3、ogg之类的音乐,你可以使用AudioVideoPlayback