2014-12-02 116 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