播放flc文件动画

2019-11-18 17:32:36

字体：大中小

来源：转载

供稿：网友

播放.flc动画文件的方法与.wav及.midi并没有什么不同，最后完成的程序
大致如下：
SubPlaySound(filename)
DimcmdAsString
CallmciSendString("closeMyFlc",0,0,0)'MyFlc这个名称可依需要
来修改
cmd="open"&filename&"aliasMyFlc"
CallmciSendString(cmd,0,0,0)
CallmciSendString("playMyFlc",0,0,0)
EndSub
注：有些机器可能会因为没有安装.flc的驱动程序而无法播放，欲检查机器中是否安装有播放.flc的驱动程序，可先利用Windows提供的媒体播放程序播放.flc文件看看。

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

上一篇：VB中利用WinRAR进行文件压缩

下一篇：比较两个文件