用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