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

名前

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

本文 何か勘違いが有って上手くいかないのでしょう。 とりあえずフォームにボタンを一つ置いて Private Declare Function sndPlaySound _ Lib "winmm.dll" Alias "sndPlaySoundA" _ (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Private Const SND_ASYNC = &H1 Private Sub Command1_Click() Dim r As Long r = sndPlaySound("C:\WINNT\Media\chimes.wav", SND_ASYNC) End Sub をやってみましょう。