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

老哲smile

2016-02-19 17:54

下面是个超简单的用API函数Mcisendstring直接播放背景音乐教程，图老师小编精心挑选推荐，大家行行好，多给几个赞吧，小编吐血跪求~

源代码：
　　PrivateSubCommand1_Click()
　　Dimback
　　back=mciSendString&("CLOSENN",0,0,0)
　　EndSub
　　
　　PrivateSubCommand2_Click()
　　Dimback
　　back=mciSendString&("OPEN" App.Path "TEST.mid" "TYPESEQUENCERALIASNN",0&,0,0)
　　back=mciSendString&("PLAYNNFROM0",0&,0,0)
　　R=mciSendString&("CLOSEANIMATION",0&,0,0)
　　EndSub
　　
　　PrivateSubForm_Load()
　　Dimback
　　back=mciSendString&("OPEN" App.Path "TEST.mid" "TYPEWaveAudioALIASNN",0&,0,0)
　　back=mciSendString&("PLAYNNFROM0",0&,0,0)
　　R=mciSendString&("CLOSEANIMATION",0&,0,0)
　　EndSub->

展开更多（50%）