结束背景音乐

Question

Option ExplicitPrivate Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As LongPrivate Sub Command1_Click()'play 
    mciSendString "close MyWav", vbNullString, 0, 0
    mciSendString "open back.mid alias MyWav", vbNullString, 0, 0
    mciSendString "play MyWav", vbNullString, 0, 0
End SubPrivate Sub Command2_Click()'close 
    mciSendString "close MyWav", vbNullString, 0, 0
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    mciSendString "close MyWav", vbNullString, 0, 0
End Sub