声音效果播放时,音频背景正在播放Visual Basic
问题描述:
即时通讯新的制作VB,我想问如果播放背景音乐时,如何播放声音效果,例如,当背景音乐正在播放时,当我点击它会产生声音效果的按钮。至于我一样,当我将鼠标悬停在该按钮,当前的背景音乐停止,声音效果和执行后我将鼠标悬停我的鼠标,背景音乐播放agaian声音效果播放时,音频背景正在播放Visual Basic
这里是我的代码..
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
感谢您的回复..干杯!
答
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
有关标签遗憾 – 2014-09-04 17:39:03