C#操做Flash動畫

時間 2019-11-21

標籤 c# flash 動畫欄目 C# 简体版

原文原文鏈接

對於在C#開發的過程當中沒有接觸過Flash相關開發的人員來講，沒有系統的資料進行學習，那麼這篇文檔針對於初學者來講是很好的學習DEMO。本文章中的DEMO實現了C#的COM控件庫中原本就帶有對flash進行播放的控件，只是須要對flash的相關操做進行了解便可，先看看實現的效果。編程

閱讀目錄瀏覽器

回到頂部

實現效果

回到頂部

配置Flash的運行環境

1.在VS中建立好一個winFrom應用程序以後，在工具箱-》全部Windows窗體反鍵-》找到添加選項卡-》COM組件-》Shockwave Flash Object
網絡

2.而後在winform窗體中拖入剛纔選中的Flash控件便可使用dom

回到頂部

實現邏輯

源碼：ide

 1 using System;
 2 using System.Collections.Generic;
 3 using System.ComponentModel;
 4 using System.Data;
 5 using System.Drawing;
 6 using System.IO;
 7 using System.Linq;
 8 using System.Text;
 9 using System.Threading.Tasks;
10 using System.Windows.Forms;
11 
12 namespace Flash_Demo
13 {
14     public partial class Form1 : Form
15     {
16         public Form1()
17         {
18             InitializeComponent();
19         }
20         /*
21          * 功能：Form進行初始化方法（對Flash進行初始化）
22          * create date:2015-11-11
23          * author:JZ
24          * */
25         private void Form1_Load(object sender, EventArgs e)
26         {
27             axShockwaveFlash1.LoadMovie(0, Directory.GetCurrentDirectory() + "\\flash4047.swf"); //從本地進行加載flash的路徑
28             //axShockwaveFlash1.LoadMovie(0,  "http://www.jsyst.cn/xuecheflash/xueche10.swf");//從網絡上加載Flash
29             axShockwaveFlash1.Rewind();  //開始的時候加載到flash的第一幀
30             axShockwaveFlash1.StopPlay();//開始的時候Flash是中止播放的狀態
31             axShockwaveFlash1.Menu = false;//在flash中反鍵不進行展現flash的菜單
32         }
33 
34         /*
35          * 功能：中止播放按鈕的事件
36          * create date:2015-11-11
37          * author:JZ
38          * */
39         private void button2_Click(object sender, EventArgs e)
40         {
41 
42             axShockwaveFlash1.StopPlay();//中止播放Flash
43         }
44         /*
45          * 功能：上一幀按鈕的事件
46          * create date:2015-11-11
47          * author:JZ
48          * */
49         private void button4_Click(object sender, EventArgs e)
50         {
51             axShockwaveFlash1.Back();//flash的上一幀
52         }
53         /*
54          * 功能：下一幀按鈕的事件
55          * create date:2015-11-11
56          * author:JZ
57          * */
58         private void button5_Click(object sender, EventArgs e)
59         {
60             axShockwaveFlash1.Forward();//flash的下一幀
61         }
62         /*
63         * 功能：開始播放按鈕的事件
64         * create date:2015-11-11
65         * author:JZ
66         * */
67         private void button6_Click(object sender, EventArgs e)
68         {
69             axShockwaveFlash1.Rewind();  //開始的時候加載到flash的第一幀
70             axShockwaveFlash1.Play();//開始播放Flash
71             axShockwaveFlash1.Loop = true;//對Flash進行循環播放
72         }
73     }
74 }

View Code

回到頂部

C#操做Flash的關鍵參數解析

屬性:
　　1.AlignMode （讀寫）
語法：AlignMode As Long
說明：對齊方式（與 SAlign 屬性聯動）。當控件的長寬比例與影片不一致且 WMode 不爲 ExactFit 時，影片
（沒有被放大的）在控件中顯示的位置可用該屬性調整。該屬性值由標誌位組成。如圖，將該屬性值（二進制）中相應的位標記爲 1 就設置了相應的對齊方向。
屬性值與相應的對齊方式（後面括號裏是二進制數）
1：左對齊(0001) 2：右對齊(0010) 4：頂對齊
(0100) 8：底對齊(1000)
也能夠組合各類對齊方式，同時將兩個或以上的位標記爲 1 ，也就是將這四個基本值組合相加。好比同時左對齊和頂對齊，屬性值則設爲 5（0101）。
例子：設置影片爲右對齊：
movie.AlignMode = 2
　　2.BackgroundColor（讀寫）

語法：BackgroundColor As Long 說明：影片的背景色（與 BGColor 聯動）。以（紅
× 65536 ＋綠× 256 ＋藍）計算顏色值。紅綠藍顏色取值範圍（0-255 ）。默認的影片背景色爲 -1 。若是影片設置了底色或有圖片看成背景，那麼看不出來該屬性值的改變會有什麼影響。
例子：將影片背景色設爲藍色：
movie.BackgroundColor = 255
　　3.Base （讀寫）
語法：Base As String
說明：指定用於解決影片中全部相對路徑的聲明的基地址。當影片與其須要的其餘文件不在同一目錄中的時候該屬性特別有用。如不特別指定，Base 的值默認爲 "."，也就是當前影片所在的路徑。
例子：
movie.Base = "Http://www.domain.com/pathname1/
pathname2"
　　4.BGColor （讀寫）
語法：BGColor As String
說明：影片的背景色（與 BackgroundColor 聯動）。與 BackgroundColor 不一樣的是，BGColor 是一個六位的十六進制數，每兩位分別表明紅綠藍顏色值。如：FFEEAA 表示紅色值爲 FF、綠色值爲 EE 、藍色值爲 AA 。
例子：將影片背景色設爲紅色：
movie.BGColor = "FF0000"
　　5.DeviceFont （讀寫）
語法：DeviceFont As Boolean
說明：決定是否使用影片內嵌的字體，默認值爲 False 。將該屬性值設爲 True 則強制播放器不使用影片中內嵌的字體而使用本地系統字體。
例子：movie.DeviceFont = True
　　6.EmbedMovie （讀寫）
語法：EmbedMovie As Boolean
說明：影片是否被存貯到控件所在的容器中。當你已載入一個影片後將該屬性設爲 True ，播放影片時就沒必要再去讀 SWF 文件了。這使得在 PowerPoint 簡報或 VB 程序裏使用 Flash 影片更容易。但將該屬性設爲 True 後，控件的 Movie 屬性就再也不接受新的值了。要想播放另外一個影片（給 Movie 屬性賦新值），必須先將 EmbedMovie 屬性設爲 False 。
例子：
movie.EmbedMovie = True
　　7.FrameNum （讀寫）
語法：FrameNum As Long
說明：影片當前幀的編號（從 0 開始計數）。設置該屬性值將使影片停在由 FrameNum 指定的幀處。
例子：顯示當前幀數：
MsgBox " 當前顯示的是第 " & movie.FrameNum &
" 幀。"
使影片顯示第 10 幀： Bomovie.FrameNum = 9
　　8.Loop （讀寫）
語法：Loop As Boolean
說明：是否循環播放。設爲 True 是循環播放，設爲 False 則只播放一次。
例子：
movie.Loop = True
　　9.Menu （讀寫）
語法：Menu As Boolean
說明：是否顯示菜單。設爲 True 顯示全部菜單，設爲 False 菜單被屏蔽，但仍有一項「About Macromedia Flash Player...」。若是你實在不喜歡這個菜單，應該在程序中經過攔截鼠標消息的方法來達到目的。與在獨立的 F l a s h 播放器中不一樣的是，在控件的右鍵菜單裏點
「About...」的話，將打開瀏覽器到 Macromedia 的網站上去看 About 了。
例子：
movie.Menu = False
　　10.Movie （讀寫）
語法：Movie As String
說明：要播放的影片路徑（URL ）。設置該屬性爲一個 SWF 文件的 URL 將載入文件並播放它。若影片是在本地硬盤上，要寫成從盤符開始的絕對路徑；若影片是在某網站上，也要寫全 URL 地址。
例子：
movie.Movie = "http://www.domain.com/path1/
path2/filename.swf" 或
movie.Movie = "c:/temp/test.swf"
　　11.Playing （只讀）
語法：Playing As Boolean
說明：當前播放狀態。若是影片正在播放，該屬性值爲 True ，不然爲 False 。
例子：
If movie.Playing = False Then MsgBox " 影片已中止播放！ " End If
　　12.Quality （讀寫）
語法：Quality As Long
說明：畫面質量（與 Quality2 聯動）。Quality 可以取:
0 ——至關於 Quality2 取 "Low"
1 ——至關於 Quality2 取 "High"
2 ——至關於 Quality2 取 "AutoLow"
3 ——至關於 Quality2 取 "AutoHigh" 例子：
movie.Quality = 1
　　13.Quality2（讀寫）
語法：Quality As String
說明：畫面質量(與 Quality 聯動)。Quality2 能夠取: Low ：偏重於播放速度而無論顯示效果，並且不啓用
消鋸齒功能。
High ：偏重於畫面而無論播放速度，而且老是啓用消鋸齒功能。若是影片中不包含動畫就平滑處理位圖；如果有動畫，那麼位圖就不被平滑處理。（這裏的動畫應該是把一張圖片作平移或旋轉）
AutoLow ：先着重於播放速度，但只要有可能就改善顯示效果。一開始播放時先禁用消鋸齒功能。若是播放器檢測處處理器能承受得了，就啓用消鋸齒功能。
AutoHigh：一開始是播放速度和顯示效果並重，但若有必要就犧牲畫質確保速度。開始播放時就啓用消鋸齒功能。但若是實際的幀速率比設計時指定的速率慢了，就禁用消鋸齒功能來提升播放速度。
例子：
movie.Quality2 = "High"
　　14.ReadyState（只讀）
語法：ReadyState As Long
說明：影片的當前狀態。ReadyState 能夠取：
0 ——正在載入
1 ——未初始化
2 ——已載入
3 ——正在交互
4 ——完成例子：
If movie.ReadyState = 4 Then
MsgBox " 影片載入完成！ " End If
　　15.SAlign （讀寫）
語法：SAlign As String
說明：對齊模式（與 AlignMode 聯動）。當 AlignMode
表明各對齊模式的位被置「1」時，SAlign 值也相應被設爲
「L」（Left）、「T」（Top）、「R」（Right）、「B」（Bottom）各字符的組合。（‘L’、‘T’、‘R’、‘B’的前後順序不變）
例子：設置影片爲左對齊和頂對齊：
movie.SAlign = "LT"
　　16.Scale （讀寫）
語法：scale As String
說明：縮放模式（與 ScaleMode 聯動）。Scale 能夠取:
ShowAll ——在控件內顯示所有影片區域，保持影片長寬比例不變，影片的大小決定於控件長或寬中較小的一邊。
NoBorder ——在控件內顯示部分影片區域，保持影片長寬比例不變，影片的大小決定於控件長或寬中較大的一邊。
ExactFit ——在控件內顯示所有影片區域，將影片的長寬比例強制等於控件的長寬比例。
例子：
MsgBox " 當前的縮放模式是：" & movie.Scale
　　17.ScaleMode（讀寫）
語法：ScaleMode As Long
說明：縮放模式(與 Scale 聯動)。ScaleMode 能夠取：
0 ——至關於 Scale 取 "ShowAll"
1 ——至關於 Scale 取 "NoBorder"
2 ——至關於 Scale 取 "ExactFit"
例子：使影片的縮放模式改爲「ExactFit 」：
movie.ScaleMode = 2
　　18.Stacking （讀寫）
語法：Stacking As String
說明：用於 HTML，將 Flash Player 當成 HTML 中的一種「行爲」使用時，該屬性決定 Flash 影片相對於與其參照的 HTML 內容如何顯示。（有關「行爲」請參閱樣式表的資料）。Stacking 能夠取：
none ——「行爲」不顯示。
replaceall ——「行爲」的顯示取代所有其餘元素的內容，包括背景。
content ——「行爲」的顯示只取代其餘元素的內容。
background ——「行爲」的顯示只取代其餘元素的背景。
below ——「行爲」在全部其餘元素內容的下面顯示。
belowflow ——「行爲」以反向 Z 順序顯示在其餘元素的子對象之上，但在該元素主要內容之上。
aboveflow ——「行爲」以正向 Z 順序顯示在其餘元素的子對象之下，但在該元素主要內容之上。
above ——「行爲」顯示在全部其餘元素的內容之上。
top ——「行爲」的顯示置於整個頁面內容之上。例子：
movie.Stacking = "below"
　　19.TotalFrames（只讀）
語法：TotalFrames As Long
說明：返回影片中總幀數。該參數要到影片載入完成纔有效（ReadyState=4）。
例子：
If movie.ReadyState = 4 Then
MsgBox " 本影片共有 " & movie.TotalFrames & " 幀。"
End If
　　20.WMode （讀寫）
語法：WMode As String
說明：控件的窗口模式。WMode 能夠取： Window —— WMode 屬性的默認值，按 Flash 播放器
典型的方式工做，即在控件的矩形窗口中播放影片，這樣一般都能提供最快的動畫效果。
Opaque ——使影片不透明。 Transparent ——建立一個透明的影片。若是影片中有
透明的片斷，放到這裏時，就能夠看到控件下面的背景。但使用此屬性值，動畫的播放速度可能會慢一些。
例子：
movie.WMode = "Transparent"

方法:

　　 1.Back
語法：Back()
說明：影片後退一幀，而且中止播放。例子：
movie.Back
　　2.Forward
語法：Forward()
說明：影片前進一幀，而且中止播放。例子：
movie.Forward
　　3.GotoFrame
語法：GotoFrame(FrameNum As Long) 說明：將影片跳轉到由 FrameNum 指定的幀，而且
中止播放。若是所指定的幀還未載入，播放器前進到最後的可用幀並停下，在調用過程當中會產生沒法預料的後果。最好使用 PercentLoaded 方法來肯定是否已載入足夠的影片來執行本方法。參數 FrameNum 是從 0 開始的，這和 Flash 中的 Goto 動做不同，它是從 1 開始的。
例子：跳轉到影片的第 20 幀：
movie.GotoFrame 20
　　4.LoadMovie
語法：LoadMovie(layer As Long, url As String) 說明：將由 url 指定的影片載入到由 layer 指定的層上。例子：將 movie.swf 載入至 0 層：
movie.LoadMovie 0, "movie.swf"
　　5.Pan
語法：Pan(x As Long, y As Long, mode As Long) 說明：將一個放大過的影片平移由 x 和 y 指定的距離。
x 和 y 均爲相對值。即控件相對於影片來講平移的距離（你能夠想象控件是一個窗戶，影片是咱們從窗戶裏看到的放在外面的佈景, 咱們看到窗戶相對於佈景平移了一些距離，那是外面的佈景在動，而窗戶是不動的）。用 mode 參數來指定 x 和 y 的值是像素仍是窗口的百分比，當 mode=0 時座標系以像素爲單位；mode=1 時座標系就以窗口的百分比來計算。平移並不能超出影片的邊框，也就是說，往一個方向平移最多到達影片的邊緣與控件對齊的程度。
例子：控件相對於影片向左向上各平移 5 個像素（當然控件不會動，是影片向右向下平移了）：
movie.Pan 5,5,0
　　6.Play
語法:Play()
說明: 開始播放影片。例子:
movie.Play
　　7.Rewind
語法:Rewind()
說明: 倒帶。返回到影片的第一幀。例子:
movie.Rewind
　　8.SetVariable
語法:SetVariable(name As String, value As String) 說明:將由 name 指定的 Flash 變量值設爲 value。例子:movie.SetVariable "/Form:UserName", "John Smith"
　　 9.SetZoomRect
語法:SetZoomRect(left As Long, top As Long, right
As Long, bottom As Long)
說明: 將影片中指定的矩形區域放大到控件的大小。 left(左)、top(頂)、right(右)、bottom(底)的座標值是相對於控件中的影片有效位置計算的。注意喲，這個函數是從影片的有效區域的左上角開始計算，而不是控件的左上角。
例子：放大影片中從左上角開始的 200 × 200 點的矩形區域：
pointsToTwips = 20;
movie.SetZoomRect 0, 0, 200 * pointsToTwips, 200
* pointsToTwips
　　10.Stop
語法：Stop()
說明：中止播放影片。例子：movie.Stop
　　11.StopPlay
語法：StopPlay()
說明：中止播放影片。例子：movie.StopPlay
　　12.TCallFrame
語法：TCallFrame(target As String, FrameNum
As Long)
說明：在由 t a r g e t 指定的時間軸中，執行由 FrameNum 指定的幀中的動做。
例子：要運行主時間軸中第 5 幀的動做：
movie.TCallFrame "/", 4
　　13.TCallLabel
語法：TCallLabel(target As String, label As String) 說明：在由 target 指定的時間軸中，執行由 label 指
定的幀中的動做。例子：要運行主時間軸中名爲「HandleScriptNotify」
的幀中的動做：
movie.TCallLabel "/", "HandleScriptNotify"
　　14.TGotoFrame
語法：TGotoFrame(target As String, FrameNum
As Long)
說明：對於由 t a r g e t 指定的時間軸，轉到由 FrameNum 指定的幀。
例子：
movie.TGotoFrame "/MovieClip", 2
　　15.TGotoLabel
語法: TGotoLabel(target As String, label As String) 說明：對於由 target 指定的時間軸，轉到由 label 指
定的幀。
例子：movie.TGotoLabel "/MovieClip", "MyLabel"
　　16.TPlay
語法：TPlay(target As String) 說明：播放由 target 指定的時間軸。例子：movie.TPlay "/MovieClip"
　　17.TSetProperty
語法：TSetProperty(target As String, property As
Long, value As String)
說明：對於由 target 指定的時間軸，把由 property 指定的屬性設爲由 value 指定的值（字符串）。property 是一個表明相應屬性的編號（詳情請參閱附表）。
例子：
Dim nameIndex As Long
nameIndex = 13
movie.TSetProperty "/MovieClip", nameIndex,
"NewName"
　　18.TSetPropertyNum
語法：TSetPropertyNum(target As String, property
As Long, value As Double)
說明：對於由 target 指定的時間軸，把由 property 指定的屬性設爲由 value 指定的值（數字）。property 是一個表明相應屬性的編號（詳情請參閱附表）。
例子：
Dim visibilityIndex As Long visibilityIndex = 7
movie.TSetProperty "/MovieClip", visibilityIndex, 1
　　19.TStopPlay
語法：TStopPlay(target As String) 說明：中止播放由 target 指定的時間軸。例子：
movie.TStopPlay "/MovieClipToStop"
　　20.Zoom
語法：Zoom(factor As Long) 說明：以 factor 指定的相對百分比來縮放視圖。factor
能夠理解爲從控件窗口看到的影片佔實際大小的百分比。將
factor 設爲 0，則視圖還原成 100% 大小。當前視圖已是
100% 時不能再將其縮小。
例子：將影片放大兩倍： movie.Zoom 50 下面的方法都有返回值：
　　21.CurrentFrame
語法：CurrentFrame() As Long 說明: 返回影片的當前幀數。影片的第一幀爲 0 。例子：
Dim frameNow As Integer frameNow = movie.currentFrame
　　22.FlashVersion
語法：FlashVersion() As Long
說明：返回控件版本號。該值共有三個字節，依次是主版本號、次版本號、修訂版本號。如我用的 Flash 播放器控件用此方法返回值是 3 2 7 7 2 2 ，至關於十六進制的
&h05002A，至關於 5.00.42。
例子：下列程序顯示你所使用的控件版本號：
Dim verNum, majorNum, minorNum, revisionNum
As Long verNum=movie.FlashVersion majorNum=verNum / 65536
minorNum=(verNum - majorNum * 65536) / 256
revisionNum = verNum Mod 256
MsgBox " 你的 Flash 播放器控件的版本號：" &
majorNum & "." & minorNum & "." & revisionNum
　　23.GetVariable
語法：GetVariable(name As String) As String
說明：返回 name 指定的 Flash 變量的值。若是變量不存在則返回 null。
例子：
Dim firstName, radioButtonValue As String firstName = movie.GetVariable "FirstName" radioButtonValue = movie.GetVariable("/Form/
RadioButton:Value")
　　2四、IsPlaying
語法：IsPlaying() As Boolean
說明：若是影片正在播放則返回 true 。例子：
If movie.IsPlaying Then
MsgBox " 影片正在播放中！ " End If
　　25.PercentLoaded
語法：PercentLoaded() As Long
說明：返回目前已經載入的影片的百分比。取值範圍從 0 到 100 。
例子：
Dim loaded As Boolean
If movie.PercentLoaded = 100 Then loaded = true
End If
　　26.TCurrentFrame
語法：TCurrentFrame(target As String) As Long 說明：返回由 target 指定的時間軸中當前幀的號碼。返回的幀號碼是從 0 開始的，也就是說影片的第一幀爲 0 ，第
二幀爲 1,以此類推。例子：
Dim currentFrame As Long
currentFrame = movie.TCurrentFrame("/MovieClip")
　　27.TCurrentLabel
語法：TCurrentLabel(target As String) As String
說明：返回由 target 指定的時間軸中當前幀的標籤。若是沒有當前幀的標籤，則返回一個空字符串。
例子：
Dim currentLabel As String
currentLabel = movie.TCurrentLabel("/MovieClip")
　　28.TGetProperty
語法：TGetProperty(target As String, property
As Long) As String
說明：對於由 target 指定的時間軸，返回由 property 指定的屬性值（字符串）。其中，property 是一個表明相應屬性的編號（詳情請參閱附表）。
例子：
Dim nameIndex As Long Dim name As String nameIndex = 13
name = movie.TGetProperty("/", nameIndex)
　　29.TGetPropertyNum
語法：TGetPropertyNum(target As String, property
As Long) As Double
說明：對於由 target 指定的時間軸，返回由 property 指定的屬性值（數字）。其中，property 是一個表明相應屬性的編號（詳情請參閱附表）。
例子：
Dim framesLoadedIndex As Long Dim framesLoaded As Double framesLoadedIndex = 12
framesLoaded = movie.TGetProperty("/", framesLoadedIndex)
附表：獲取及設置屬性。相應的每一個屬性的編號均可用在 TGetProperty、TGetPropertyAsNumber、TSetProperty 或 TSetPropertyNum 中，以指出將要訪問的屬性。

事件:

　　 1.FSCommand
語法：FSCommand(command As String, args As
String)
說明：在 Flash 中爲影片添加的 FSCommand 動做可以從影片中傳遞信息給 Flash 播放器，Flash 播放器或包含播放器控件的網頁或程序播放這個影片時就根據獲得的這些信息執行相應的動做，從而實現影片內部與外部應用的交互操做。如在 F l a s h 中給一個按鈕圖片添加以下的 Action：
on(release) {
   fscommand("fullscreen","true");
}
當 Flash 播放器播放這個文件時點擊按鈕，播放器就會切換到全屏模式。下面是 Flash 自帶的播放器能識別的命令和它們的參數：
命令： quit
參數：無參數
做用：關閉播放器命令：fullscreen 參數：true 或 false
做用：設置爲 true 使播放器以全屏模式播放；設置爲 false 使播放器回到通常窗口模式播放。
命令：allowscale
參數：true 或 false
做用：設爲 false 將使影片不隨播放器大小改變而改變，始終保持原始尺寸，至關於播放器菜單中的 100% ；設爲 true 則恢復影片隨播放器大小而改變的尺寸，至關於播放器菜單中的 Show All 。
命令：showmenu
參數：true 或 false
做用：設爲 true 顯示所有菜單，包括菜單欄和播放區的右鍵菜單；設爲 false 菜單欄不顯示，播放區的右鍵菜單中只有一項「About Macromedia Flash Player...」。
命令： exec
參數：應用程序的路徑及名稱做用：執行一個指定的應用程序。如在 Flash 影片中
添加動做爲：
fscommand("exec","regedit");
則播放器播放影片時執行此動做會打開「註冊表編輯器」程序。注意喲，Flash 自帶的播放器接收到這些命令後會執行相應的動做，但在控件中不會有任何反應，只能由程序在 FSCommand 事件中分析接收到的 command 和args 並編程作出相應處理。
　　2.OnProgress
語法：Event OnProgress(percentDone As Long) 說明：發生在 Flash 影片下載時。percentDone 是影
片已下載的百分比，取值從 0 到 100 。
例子：在窗體標題欄中顯示下載進度：
Private Sub movie_OnProgress(ByVal percentDone
As Long)
form1.Caption = " 影片已下載：" & percentDone
& "%"
End Sub
3.OnReadyStateChange
語法：Event OnReadyStateChange(newState As
Long)
說明：發生在控件的準備狀態改變時。下面列出了
newState 可能的值：
0 ——正在載入
1 ——未初始化
2 ——已載入
3 ——正在交互
4 ——完成
例子：影片載入完成後出現提示信息，而後開始播放影片：
Private Sub movie_OnReadyStateChange(newState As
Long)
If newState = 4 Then
MsgBox " 影片載入完成！ " & vbCrLf & " 影片總幀數：" & movie.TotalFrames
      movie.Play
          End If
      End Sub

屬性的介紹源自http://blog.csdn.net/whitechololate/article/details/6149497

回到頂部