播放MIDI音乐

ycxchen · 发表于 2009-2-3 21:30:58

在例子中，打开窗体即可以播放MIDI音乐。我想完美它，达到如下目的：
1、能循环播放
2、打开窗体后能隐藏窗体
请问，要实现上面功能如何修改代码？

ycxchen · 发表于 2009-2-5 11:35:16

5楼的例子看过了,很好,万分多谢WU8313!

ycxchen · 发表于 2009-2-5 08:39:26

十分多谢WU8313!您不不愧是元老!

wu8313 · 发表于 2009-2-4 17:56:34

本帖最后由 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-3 22:16:53

循环播放能实现吗?

ycxchen · 发表于 2009-2-3 22:00:40

谢谢！可是我不知道在哪个事件中运用，如果在OPEN事件中又似有点不合逻辑，盼指教。

tmtony · 发表于 2009-2-3 21:32:25

隐藏窗体,可使用 docmd.openform 里的 hide参数,可隐藏打开.

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[窗体] 播放MIDI音乐

本帖子中包含更多资源

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)