播放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。

上一篇： 比较两个文件
下一篇： 打开文本文件各种方法

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有