Vb.net 单按钮静音开/关功能

我的背景音乐正在播放

我可以使用以下代码停止音乐：

    Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles audio.Click
    My.Computer.Audio.Stop()
    End Sub

但我无法重新启动或恢复它

---

那么，可以为单个按钮分配静音开/关（或启动/停止）功能吗？

您可以为此使用一个变量。尝试以下技巧：

Dim IsAudioPlaying As Boolean = True

Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles audio.Click
    If IsAudioPlaying Then
        My.Computer.Audio.Stop()
        IsAudioPlaying = False
    Else
        My.Computer.Audio.Play(Nothing)
        IsAudioPlaying = True
    End If
End Sub

---

您可以为此使用一个变量。尝试以下技巧：

Dim IsAudioPlaying As Boolean = True

Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles audio.Click
    If IsAudioPlaying Then
        My.Computer.Audio.Stop()
        IsAudioPlaying = False
    Else
        My.Computer.Audio.Play(Nothing)
        IsAudioPlaying = True
    End If
End Sub

---

我犯了两个错误；“Bool类型未定义”和“Start不是音频成员”。请立即检查。请查看完整代码，现在没有Bool

Dim IsAudioPlaying As Boolean=True

ups抱歉，我忘记了复制Dim:）现在可以了，但当我再次按下时，exe崩溃了。所以我把“My.Computer.Audio.Play（Nothing）”改为“My.Computer.Audio.Play（My.Resources.backgrounds，AudioPlayMode.BackgroundLoop）”，工作正常，谢谢！很高兴听到你的问题已经解决了；“Bool类型未定义”和“Start不是音频成员”。请立即检查。请查看完整代码，现在没有Bool

Dim IsAudioPlaying As Boolean=True

ups抱歉，我忘记了复制Dim:）现在可以了，但当我再次按下时，exe崩溃了。所以我把“My.Computer.Audio.Play（Nothing）”改为“My.Computer.Audio.Play（My.Resources.backgrounds，AudioPlayMode.BackgroundLoop）”，工作正常，谢谢！很高兴听到你的问题解决了。