声音效果播放时，音频背景正在播放Visual Basic

Question

即时通讯新的制作VB，我想问如果播放背景音乐时，如何播放声音效果，例如，当背景音乐正在播放时，当我点击它会产生声音效果的按钮。至于我一样，当我将鼠标悬停在该按钮，当前的背景音乐停止，声音效果和执行后我将鼠标悬停我的鼠标，背景音乐播放agaian

这里是我的代码..

Public Class Form2 

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
     My.Computer.Audio.Play("C:\Users\android_kh5sy35fe2\Desktop\WWM\auswahlrunde_loop.wav", 
      AudioPlayMode.BackgroundLoop) 
    End Sub 

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

    End Sub 

    Private Sub Button1_MouseHover(sender As Object, e As EventArgs) Handles Button1.MouseHover 
     My.Computer.Audio.Play("C:\Users\android_kh5sy35fe2\Desktop\WWM\Hawking.wav", 
      AudioPlayMode.Background) 
    End Sub 

    Private Sub Button1_MouseLeave(sender As Object, e As EventArgs) Handles Button1.MouseLeave 
     My.Computer.Audio.Play("C:\Users\android_kh5sy35fe2\Desktop\WWM\auswahlrunde_loop.wav", 
       AudioPlayMode.BackgroundLoop) 
    End Sub 

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 

    End Sub 

    Private Sub Button2_MouseHover(sender As Object, e As EventArgs) Handles Button2.MouseHover 
     My.Computer.Audio.Play("C:\Users\android_kh5sy35fe2\Desktop\WWM\Finn.wav", 
      AudioPlayMode.Background) 
    End Sub 

    Private Sub Button2_MouseLeave(sender As Object, e As EventArgs) Handles Button2.MouseLeave 
     My.Computer.Audio.Play("C:\Users\android_kh5sy35fe2\Desktop\WWM\auswahlrunde_loop.wav", 
       AudioPlayMode.BackgroundLoop) 
    End Sub 

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click 

    End Sub 

    Private Sub Button3_MouseHover(sender As Object, e As EventArgs) Handles Button3.MouseHover 
     My.Computer.Audio.Play("C:\Users\android_kh5sy35fe2\Desktop\WWM\Homer.wav", 
      AudioPlayMode.Background) 
    End Sub 

    Private Sub Button3_MouseLeave(sender As Object, e As EventArgs) Handles Button3.MouseLeave 
     My.Computer.Audio.Play("C:\Users\android_kh5sy35fe2\Desktop\WWM\auswahlrunde_loop.wav", 
       AudioPlayMode.BackgroundLoop) 
    End Sub 
End Class 

感谢您的回复..干杯！

Answer 1

My.Computer.Audio.Play是唯一的（静态）。 您可以使用SoundPlayer，即类，因此您可以实例化它多次（对于每个声音）。

Dim music As String = "" ' *.wav file location 
Dim media As New Media.SoundPlayer(music) 
media.Play() ' Async, creates a new thread 

---

Dim sound As String = "" ' *.wav file location 
Dim media As New Media.SoundPlayer(sound) 
media.PlaySync() ' Sync, locks the current thread