用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

上一篇： 用VB实现屏幕滚屏保护效果
下一篇： 如何满屏播放AVI文件

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有