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

原文轉自：http://www.anti-gravitydesign.com