用API函数Mcisendstring直接播放背景音乐
发表于:2007-07-14来源:作者:点击数:
标签:
作者:徐建波 源代码: 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 = mc
作者:徐建波
源代码:
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
原文转自:http://www.ltesting.net