|
 |
推荐文章 |
|
|
|
|
|
|
|
|
|
|
| 作者：本站收集 日期：2005-8-4 11:35:18 |
|
|
播放 .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。 |
|
|
|
|
|
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
|
|
|
|
|
责任编辑： 原点 |
投稿作者： 本站收集 |
|
|
信息来源： 网络 |
录入时间： 2005-8-4 11:35:18 |
|
|
|
| |
|
设为首页
加入收藏
总编信箱
投稿或申请专栏请先 [登 陆]