如何在VB中实现背景音乐的循环播放
［ｇｅｎｅｒａｌ］
……
ＤＩＭ Ｖａｌｕｅ Ａｓ Ｉｎｔｅｇｅｒ ′声明计时变量
Ｓｕｂ Ｆｏｒｍ１－ｌｏａｄ（）
……
ｉｆ ｎｏｔ ｍｃｉ１．ｍｏｄｅ＝ＭＣＩ－ＭＯＤＥ－ＮＯＴ－ＯＰＥＮ ｔｈｅｎ ｍｃｉ１．ｃｏｍｍａｎｄ＝”ｃｌｏｓｅ” ′如果多媒体控制是打开的则关闭
ｅｎｄ ｉｆ
Ｖａｌｕｅ＝０ ′计时变量初始化
ｍｃｉ１．ｄｅｖｉｃｅｔｙｐｅ＝”ｗａｖｅａｕｄｉｏ” ′假定为ｗａｖ文件
ｃｈｄｉｒ ”ｅ：＼ｍｙｗｏｒｋ” ′设定音乐文件所在目录
ｍｃｉ１．Ｆｉｌｅｎａｍｅ＝”梁祝．ｗａｖ” ′设定音乐文件名
ｍｃｉ１．ｃｏｍｍａｎｄ＝”ｏｐｅｎ” ′打开文件并播放
ｍｃｉ１．ｃｏｍｍａｎｄ＝”ｐｌａｙ”
Ｅｎｄ Ｓｕｂ
（在Ｔｉｍｅｒ１的属性栏中，将Ｉｎｔｅｒｖａｌ的值改为１０００，即让程序每秒钟触发一次计时器事件。）
Ｓｕｂ Ｔｉｍｅｒ１－ｔｉｍｅｒ（）
Ｖａｌｕｅ＝Ｖａｌｕｅ＋１ ′计时，单位秒。
Ｉｆ Ｖａｌｕｅ＞＝１８２ Ｔｈｅｎ ′数字自定，应比曲长多一二秒
Ｖａｌｕｅ＝０ ′计时变量清零，重新开始计时
ｉｆ ｎｏｔ ｍｃｉ１．ｍｏｄｅ＝ＭＣＩ－ＭＯＤＥ－ＮＯＴ－ＯＰＥＮ ｔｈｅｎ ｍｃｉ１．ｃｏｍｍａｎｄ＝”ｃｌｏｓｅ”
ｅｎｄ ｉｆ
ｍｃｉ１．ｄｅｖｉｃｅｔｙｐｅ＝”ｗａｖｅａｕｄｉｏ” ′重新对播放控制初始化
ｃｈｄｉｒ ”ｅ：＼ｍｙｗｏｒｋ”
ｍｃｉ１．Ｆｉｌｅｎａｍｅ＝”梁祝．ｗａｖ”
ｍｃｉ１．ｃｏｍｍａｎｄ＝”ｏｐｅｎ”
ｍｃｉ１．ｃｏｍｍａｎｄ＝”ｐｌａｙ”
ｅｎｄ ｉｆ
ｅｎｄ ｓｕｂ
如何得到选定音乐曲目的确切曲长呢？只需用Ｗｉｎｄｏｗｓ ９５中的“录音机”打开该文件，曲长就会以秒的形式显示在面板上。此方法在Ｖｉｓｕａｌ Ｂａｓｉｃ ５．０中通过。
利用同样原理，可以方便地实现动画的循环放映，读者不妨一试。