咨询一个关于VB窗体播放MID背景音乐的问题（在线等）

yugui

1、有8首MID音乐，需要随机生成一首，然后进行循环播放。
2、加一个是否需要播放音乐的开关。
3、程序是如何判断一首音乐播完，进行下一首音乐的播放的？ [em24] [em24]

zodane

  循环播放无法避免的得使用timer

游戏之家

'VB随机循环播放多首MIDI音乐程序   2006.2.13     

你修改MUSP的值和MIDI音乐文件数量，我现在是3首，程序很简单，
用TIMER和一个判断MIDI是否播放结束的API写的：

yugui

谢谢游戏之家

请问判断MIDI是否播放结束是哪句段代码呀

游戏之家

If mciGetCreatorTask(ID) = 0 Then  换下一首（音乐结束标志）
这个程序必须和TIMER一起用，因为 mciGetCreatorTask(ID) 只有在不播放的瞬间
才=0，平时<>0 ，程序开始的时候要这样Timer1.Enabled = False，需要播放的时候
才TRUE，这样不播放的时候mciGetCreatorTask(ID)始终是=0。