効果音の演奏停止について (ID:114842)

名前

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

本文 下記で効果音をループさせていますが、 Private Sub Form_Activate() sndPlaySound App.Path & "\" & "Sound1", SND_ASYNC Or SND_LOOP End Sub 下記で演奏停止をしてくれません。 (ループから抜けない） Private Sub Form_Unload(Cancel As Integer) sndPlaySound vbNullChar, SND_NODEFAULT Unload Form2 End Sub ↑どうすればよいか教えてください。 よろしくお願いします。 ----------------------------------------- [VB6](Form1〜4,Module1) Module1 Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _ (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Public Const SND_SYNC = &H0 Public Const SND_ASYNC = &H1 Public Const SND_NODEFAULT = &H2 Public Const SND_MEMORY = &H4 Public Const SND_LOOP = &H8 Public Const SND_NOSTOP = &H10