Воспроизведение звуковых эффектов во время воспроизведения аудиофайла Visual Basic

Question

im, в настоящее время новый для создания VB, и я хотел бы спросить, как играть в звуковые эффекты во время воспроизведения фоновой музыки, например, когда играет фоновая музыка, когда i нажмите кнопку, чтобы создать звуковые эффекты. насколько я сделал, когда я наведите мышь на кнопку, текущая фоновая музыка останавливается, и звуковой эффект выполняется и после того, как я парить мышь, фоновая музыка играет 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