首页 | 社区 | 博客 | 招聘 | 文章 | 新闻 | 下载 | 读书 | 代码
亲,您未登录哦! 登录 | 注册

播放flc文件动画

打印文章

分享到:
播放 .flc 动画文件的方法与 .wav 及 .midi 并没有什么不同,最后完成的程序
大致如下:
Sub PlaySound(filename)
Dim cmd As String
Call mciSendString("close MyFlc", 0, 0, 0) ' MyFlc 这个名称可依需要
来修改
cmd = "open " & filename & " alias MyFlc"
Call mciSendString(cmd, 0, 0, 0)
Call mciSendString("play MyFlc", 0, 0, 0)
End Sub
注:有些机器可能会因为没有安装 .flc 的驱动程序而无法播放,欲检查机器中是否安装有播放 .flc 的驱动程序, 可先利用 Windows 提供的媒体播放程序播放 .flc 文件看看。

如何将 .flc 动画档放在某一个 hWnd 之中播放?上一技巧, 会开启独立的窗口来播放 .flc 动画档, 如何将它放在某一个 Form 或 PictureBox 之中播放?假设我们想将 .flc 放在 Picture1 之中播放, 则必须将 open MCI 指令由原先
的:
"open " & filename & " alias MyFlc"
改成:
"open " & filename & " alias MyFlc parent " & Picture1.hWnd & " style "
& WS_CHILD
则 .flc 就会在 Picture1 之中播放。
注:WS_CHILD 等于 &H40000000。

本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )

编程爱好者论坛

本栏最新文章