大致如下:
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。->
文章整理:西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!


