2014-12-02 95 views
-2

很简单的问题,原因让我困惑。 button1播放声音很酷。 button2将一些骰子掷出很酷。呃哦,当我点击滚动我的骰子WTH时,我的声音停止了。 button2与button1无关。当我点击任何音乐停止时,它不只是button1。如果你打算用.waitcomplete做出回应,请不要打扰。暂停500多行代码来听音乐不是一种选择声音,VB中的音频错误

我的目标是开始播放音乐。那么只需在音乐播放时开始掷骰子即可。

只有当播放的音乐停止播放时,如果我告诉它VB为什么会遇到这个问题。

我希望我很清楚谢谢。

+0

你应该张贴您的代码的相关部分。 – Magnilex 2014-12-02 19:32:19

回答

0

一种解决方法是使用Windows Media Player控件。添加一个到您的表格每个您需要的轨道。将Visible()属性设置为false,以便在窗体上看不到它们。

这里我设置一个声音在后台连续播放,而其他大干快上的第一个顶部出场:

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    Dim warp As String = "C:\Users\Mike\Documents\Star Trek Sound FX\warpdrv.wav" 
    AxWindowsMediaPlayer1.settings.setMode("Loop", True) 
    AxWindowsMediaPlayer1.URL = warp 
End Sub 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    Dim intercom As String = "C:\Users\Mike\Documents\Star Trek Sound FX\tos-intercom.wav" 
    AxWindowsMediaPlayer2.URL = intercom 
End Sub 
+0

嘿,谢谢闲置。我忘记了可见的功能。我不想将媒体播放器添加到该项目中,但现在我可以使用可见的媒体播放器,这将解决我的问题。再次感谢。 – 2014-12-03 20:13:12