Vb.net 单击按钮时切换操作

Vb.net 单击按钮时切换操作,vb.net,Vb.net,我正试图使它成为这样,每当你点击它时,默认情况下,音乐开始播放,当你再次点击它时,音乐停止。我已将音乐文件嵌入到资源中,它被称为Callthecops.wav。我希望能得到任何帮助。至于那一刻,每当我点击它时,它会打开和关闭,但它会重新启动音乐,当你点击关闭时,它不会停止 到目前为止,我的代码是: Private Sub FlatToggle1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Fl

我正试图使它成为这样,每当你点击它时,默认情况下,音乐开始播放,当你再次点击它时,音乐停止。我已将音乐文件嵌入到资源中,它被称为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

您可以添加一个标志来确定音频所处的状态。然后可以使用My.Computer.Audio.Stop方法停止播放音乐。My.Computer.Audio.Stop方法停止由My.Computer.Audio.Play方法启动的背景中的声音播放。你可以找到更多关于这个的信息


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

非常感谢。成功了。你能告诉我这些东西是干什么用的吗?~私有blnSwitch为Boolean=False | ~blnSwitch=True~和~blnSwitch=False~ blnSwitch是一个变量,用于保存音频所处的状态:播放True或not False。我们需要在执行操作之前确定状态,通过使用此变量,我们可以完成此操作。
 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