シングルボタンのミュートオン/オフ機能

Question

私は音楽をバックグラウンドで再生しています。

私は、次のコードを使用して音楽を停止することができます：

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

しかし、私はそれを再起動するか、再開することはできません。

ミュートオン/オフ（またはスタート/ストップ）機能を1つのボタンに割り当てることはできますか？

Answer 1

これには変数を使用できます。以下の方法を試してください：

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