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

名前

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

本文 １チェック ２未チェック ０無効って事ですね？ Private Sub Check1_change() Dim r As Long If Checkbox1.Value = 1 Then r = sndPlaySound("〜.wav", SND_ASYNC) elself Checkbox1.Value = 2 r = sndStopSound("〜.wav", SND_ASYNC)'←これでいいのでしょうか？ End Sub