單擊按鈕時切換動作

Question

http://i.imgur.com/MyCBtdO.png
我正在嘗試制作它，以便每當您單擊它時（默認情況下它是關閉的），音樂就會開始播放，而當您再次單擊它時，音樂就會停止（我已將音樂文件嵌入到資源中-稱為Callthecops.wav）。 希望我能得到任何幫助。 至於當我單擊它的瞬間，它會打開和關閉，但會重新啟動音樂，當您單擊“關閉”時，它不會停止。

到目前為止，我的代碼：

Private Sub FlatToggle1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlatToggle1.Click
    My.Computer.Audio.Play(My.Resources.Callthecops, AudioPlayMode.Background)
End Sub

Answer 1

您可以添加一個標志來確定音頻所處的狀態。然后可以使用My.Computer.Audio.Stop方法停止播放音樂。 My.Computer.Audio.Stop方法停止由My.Computer.Audio.Play方法啟動的在后台播放聲音。 您可以在這里找到更多關於此的信息 。

 Private blnSwitch As Boolean = False 

 Private Sub FlatToggle1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlatToggle1.Click
  If blnSwitch Then
   My.Computer.Audio.Stop()
   blnSwitch = False
  Else
   My.Computer.Audio.Play(My.Resources.Callthecops, AudioPlayMode.Background)
   blnSwitch = True
  End If 
 End Sub

當您單擊該按鈕時，它將播放聲音文件，再次單擊該文件時，它將使用該標志停止所有聲音在同一按鈕內。