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