单击按钮时切换操作

时间:2014-12-01 16:54:30

标签: vb.net

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

1 个答案:

答案 0 :(得分:0)

您可以添加标志以确定音频所处的状态。然后您可以使用My.Computer.Audio.Stop方法停止播放音乐。 My.Computer.Audio.Stop方法停止在My.Computer.Audio.Play方法启动的后台播放声音。您可以找到有关此here的更多信息。

 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

单击按钮时,它应该播放声音文件,当您再次单击它时,它应该使用该标志在同一个按钮内停止所有音频。