VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 播放 .flc 动画
发表评论(0)作者:, 平台:, 阅读:16336, 日期:2000-03-12
播放 .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。