首页 相关文章 用API函数Mcisendstring直接播放背景音乐

用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&("CLOSEAN...[ 查看全文 ]

2016-02-19 标签:

用API函数Mcisendstring直接播放背景音乐的相关文章

手机页面
收藏网站 回到头部