播放flc文件动画
2006-02-27 21:08:27 来源:WEB开发网核心提示:播放.flc动画文件的方法与.wav及.midi并没有什么不同,最后完成的程序大致如下:SubPlaySound(filename)DimcmdAsStringCallmciSendString("closeMyFlc",0,0,0)'MyFlc这个名称可依需要来修改cmd="op
播放.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。->
大致如下:
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。->
[]
更多精彩
赞助商链接