×

关注微信公众号

免备案网站空间虚拟主机双线空间域名查询PS数码后期
photoshop互助课堂数百G视频教程下载英语培训机构初中英语如何学随时随地聆听大师开讲/课堂
酷素材!视频教程打包下手绘教程抠图教程路径专辑photoshop cs3视频教程
查看: 3447|回复: 12

[vb,vc,delphi] 播放flc文件动画

[复制链接]
发表于 2007-9-29 15:56:03 | 显示全部楼层 |阅读模式
播放 .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。
本帖的地址:http://bbs.jcwcn.com/forum.php?mod=viewthread&tid=120194
跟着教程做一遍,做完的图要到这里评论交作业,教程有看不懂的地方,可以在贴子下面评论
发表于 2008-6-3 15:11:23 | 显示全部楼层

酷素材
顶一下
回复 支持 反对

使用道具 举报

发表于 2009-2-19 20:43:49 | 显示全部楼层
11111111111
回复 支持 反对

使用道具 举报

发表于 2017-11-3 16:28:05 | 显示全部楼层
好帖就是要顶
回复 支持 反对

使用道具 举报

发表于 2017-11-3 15:59:28 | 显示全部楼层
酷素材
很好哦。。。
回复 支持 反对

使用道具 举报

发表于 2017-11-3 16:56:46 | 显示全部楼层
酷素材
不错不错
回复 支持 反对

使用道具 举报

发表于 2017-11-3 16:20:42 | 显示全部楼层
LZ真是人才
回复 支持 反对

使用道具 举报

发表于 2017-11-3 16:00:47 | 显示全部楼层
楼主我支持你
回复 支持 反对

使用道具 举报

发表于 2018-1-10 18:24:36 | 显示全部楼层
很不错。。。
回复 支持 反对

使用道具 举报

发表于 2018-1-10 18:14:51 | 显示全部楼层
顶顶多好
回复 支持 反对

使用道具 举报

发表于 2018-1-10 18:11:35 | 显示全部楼层
真心顶。。。。
回复 支持 反对

使用道具 举报

发表于 2018-1-10 18:09:26 | 显示全部楼层
很好哦。。。
回复 支持 反对

使用道具 举报

发表于 2018-1-10 17:56:21 | 显示全部楼层
不错不错
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | [立即注册]

本版积分规则

2345