关闭

举报

  • 提交
    首页 > 编程开发 > 正文

    播放flc文件动画

    信息发布者:wch9210
    2018-01-04 18:26:56    来源:51自学网 http://www.51zixue.net    浏览:1    回复:0    点赞:0

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

    0
    !我要举报这篇文章

    用户评论
    声明 本文来源:鲁南新商企,转载请注明出处。本站转载的其他来源的文章不代表本站完全赞同其观点或对其真实性负责。本文如涉及侵权请及时联系我们,我们将在24小时内予以删除!