BGMを停止させるには？ (ID:109759)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Private Sub Check1_Click() Dim r As Long If Check1.Value = 1 Then r = sndPlaySound("〜.wav", SND_ASYNC) ElseIf Check1.Value = 2 Then 'r = sndStopSound("〜.wav", SND_ASYNC)'←止める方法が分かりません End If End Sub