用API函数Mcisendstring直接播放背景音乐

1.用API函数Mcisendstring直接播放背景音乐
Private Sub Command1_Click()
Dim back
back = mciSendString&("CLOSE NN", 0, 0, 0)
End Sub

Private Sub Command2_Click()
Dim back
back = mciSendString&("OPEN " + App.Path + "\TEST.mid" + " TYPE SEQUENCER ALIAS NN", 0&, 0, 0)
back = mciSendString&("PLAY NN FROM 0", 0&, 0, 0)
R% = mciSendString&("CLOSE ANIMATION", 0&, 0, 0)
End Sub

Private Sub Form_Load()
Dim back
back = mciSendString&("OPEN " + App.Path + "\TEST.mid" + " TYPE WaveAudio ALIAS NN", 0&, 0, 0)
back = mciSendString&("PLAY NN FROM 0", 0&, 0, 0)
R% = mciSendString&("CLOSE ANIMATION", 0&, 0, 0)
End Sub

2.使用mcisendstring重复播放音乐文件
思路:在TIMER控件中检测当前文件的播放状态,如果为stopped,那么就重复播放

Option Explicit

Private 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 Long
Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 100
Call mciSendString("close all", 0, 0, 0) '首先关闭所有的MCI设备,避免播放多个音乐文件时声音会重叠
Call mciSendString("open " + "c:\winnt\media\ringin.wav", 0, 0, 0) '打开MCI设备
Call mciSendString("play " + "c:\winnt\media\ringin.wav", 0, 0, 0) '播放MCI设备
End Sub
Private Sub Timer1_Timer()

Dim buffer As String * 128
Dim pos As Integer
   mciSendString "status c:\winnt\media\ringin.wav mode", buffer, 128, 0&

    pos = InStr(buffer, Chr(0))
   If Left(buffer, pos - 1) = "stopped" Then
     Call mciSendString("close all", 0, 0, 0)
Call mciSendString("open " + "c:\winnt\media\ringin.wav", 0, 0, 0)
Call mciSendString("play " + "c:\winnt\media\ringin.wav", 0, 0, 0)
End If
End Sub