平码公式规律出肖|平码可以买3个平码吗

VBGood網站全文搜索 Google

搜索VBGood全站網頁(全文搜索)
首頁 - 經驗之談 - 播放 .flc 動畫
發表評論(0)作者:, 平臺:, 閱讀:16476, 日期:2000-03-12
播放 .flc 動畫


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


平码公式规律出肖 赣州期货配资 快乐十分走势图云南 快三河南 德甲积分榜2017 西甲直播吧 股票指数投资策略包括 胡立阳炒股100招 牛客栈策略 微乐吉林麻将下载安装 点点赢配资