Office中国论坛/Access中国论坛

标题: 播放MIDI音乐 [打印本页]

作者: ycxchen 时间: 2009-2-3 21:30
标题: 播放MIDI音乐
在例子中，打开窗体即可以播放MIDI音乐。我想完美它，达到如下目的：
1、能循环播放
2、打开窗体后能隐藏窗体
请问，要实现上面功能如何修改代码？
[attach]34801[/attach]

作者: tmtony 时间: 2009-2-3 21:32
隐藏窗体,可使用 docmd.openform 里的 hide参数,可隐藏打开.

作者: ycxchen 时间: 2009-2-3 22:00
谢谢！可是我不知道在哪个事件中运用，如果在OPEN事件中又似有点不合逻辑，盼指教。

作者: ycxchen 时间: 2009-2-3 22:16
循环播放能实现吗?

作者: wu8313 时间: 2009-2-4 17:56
本帖最后由 wu8313 于 2009-2-4 18:09 编辑

这个附件可以播放midi 、wav、avi 三种格式的媒体。
是我以前从网上下载代码拼接起来的，你的运气不错，正好我收藏有。

需要循环播放的话，启用窗体的timer事件就可以了。
我用到这个代码的是因为曾经在一个tree节点单击的时候就可以发出midi音乐。

代码节选：--------------------------------
   '针对不同的媒体类型选择使用不同的代码
' Multimedia.mmOpen CurrentProject.Path & "\wav\ringin.wav"
' Multimedia.mmOpen CurrentProject.Path & "\mid\TESTSND.mid"
   Multimedia.mmOpen CurrentProject.Path & "\avi\earth.avi"
   Multimedia.mmPlay
-----------------------------------------

网上类似的代码还有很多，这个我觉得比较彻底。

作者: ycxchen 时间: 2009-2-5 08:39
十分多谢WU8313!您不不愧是元老!

作者: ycxchen 时间: 2009-2-5 11:35
5楼的例子看过了,很好,万分多谢WU8313!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)