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