vb.net加载资源音乐 vbs播放音乐

怎么在vb.net程序里添加背景音乐？

推荐到一个人的百度空间里去看，

里面有DirectSound的教程

还有DirectInput、DirectDraw的教程

但是DirectSound只能播放wav

如果想播放像mp3、ogg之类的音乐，你可以使用AudioVideoPlayback

相关问答

Q1: VB.net里面怎么添加音乐

给vb.net加载资源音乐你个 很简单vb.net加载资源音乐的

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

Q2: VB.net如何加载音效？

方法一：调用系统DLL（这个有点不完善vb.net加载资源音乐，也就是播放声音时窗体无法控制vb.net加载资源音乐，效果相当于Enabled=truevb.net加载资源音乐，但音频播放完毕后就没事了）

    Private Declare Function sndPlaySound Lib "Winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

    

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim SoundFile As String, Result As Long

        SoundFile = "D:\KuGou\Pianoboy - 第105天.wav" '此处为路径

        Result = sndPlaySound(SoundFile, 0)

    End Sub

方法二：使用WindowsMediaPlayer（WindowsMediaPlayer1的可见为False）

先添加一个windowsmediaplayer控件（工具箱里没有，需要手动添加）

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

WindowsMediaPlayer1.visible=False

Me.WindowsMediaPlayer1.URL = "D:\KuGou\Pianoboy - 第105天.mp3"

End Sub

上面的都是点击button1（按钮1）后播放声音，若是鼠标移动到某控件上发出声音的话改一下触发事件就OK了。

vb.net加载资源音乐的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbs播放音乐、vb.net加载资源音乐的信息别忘了在本站进行查找喔。