VB.net中如何添加声音？

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来提取当前时间,和自定义时间对比

需凳迅要用到COM控件，例如media player、Real player等枣磨此，或者用 .NET 自带的类库 System.Media下面的游前 SoundPlayer来播放音乐

VB.NET的希望对你有帮助

在CLASS 下面定义如下

Public Declare Function PlaySound Lib "winmm.dll" (ByVal lpszSoundName As String, ByVal hModule As Integer, ByVal dwFlags As Integer) As Integer

Const SND_FILENAME As Integer = &H20000

Const SND_ALIAS As Integer = &H10000

Const SND_SYNC As Integer = &H0 '同步调用PlaySound中指定的文件，播放完WAV文件后才返回结果

Const SND_ASYNC As Integer = &H1 '异步调用PlaySound中指定的文件，不搭雹必等到播放完WAV文件后就直接返回结果，在这里我们可以调用异步方法来播放文件

Const SND_LOOP As Integer = &H8'反吵枝租复播放指定的WAV文件升兆

然后在你想要添加的部分添加执行声音文件的代码

PlaySound(Application.StartupPath + "\Sound_error.wav", 0, SND_LOOP Or SND_ASYNC) '重复播放声音

PlaySound(vbNullString, 0, 0) ‘停止播放声音

---