聲音效果播放時，音頻背景正在播放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