WEB开发网
开发学院WEB开发综合 用API函数Mcisendstring直接播放背景音乐 阅读

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

 2006-02-27 11:54:18 来源:WEB开发网   
核心提示:源代码:PRivateSubCommand1_Click()Dimbackback=mciSendString&("CLOSENN",0,0,0)EndSubPrivateSubCommand2_Click()Dimbackback=mciSendString&("OPEN" A
源代码:
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->

Tags:API 函数 Mcisendstring

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接