如何做一個(gè)FLASH播放器
一、編程原理
本程序利用了Flash4本身自帶播放Flash動(dòng)畫的控件Swflash.ocx。你可以通過(guò)以下途徑獲得該控件：
1、安裝Flash4；
2、安裝Windows98自帶的Flash插件，方法：依次單擊“開始”菜單－“設(shè)置”－“控制面板”－“添加/刪除程序”－“Windows 安裝程序”－“多媒體”－“詳細(xì)資料”－選中“Macromedia Shockwave Flash”前的復(fù)選框確定即可。
以上方法都會(huì)將該控件安裝到Windows目錄下的System\Macromed\Flash子目錄下。
二、示例程序
下面就是一個(gè)用Swflash.ocx控件編寫的Flash動(dòng)畫播放器。本程序可一次打開多個(gè)Flash動(dòng)畫文件，并可在播放過(guò)程中選擇播放打開的文件、隨時(shí)改變播放質(zhì)量、畫面大小等狀態(tài)；在播放過(guò)程中可以隨時(shí)對(duì)播放的當(dāng)前幀數(shù)進(jìn)行調(diào)整或者手動(dòng)進(jìn)行逐幀播放，在狀態(tài)欄里有當(dāng)前播放狀態(tài)的相關(guān)說(shuō)明。在實(shí)現(xiàn)以上功能時(shí)，幾乎用全了Swflash.ocx控件的主要屬性、方法。
編程過(guò)程如下：
1、窗體、界面設(shè)計(jì)。
新建工程，選擇“工程”菜單下的“部件”命令，在“部件”窗口的“控件”列表中將“Shockwave flash”、“Microsoft Common Dialog Control 6.0 (SP3)”、“Microsoft Windows Common Control 6.0 (SP3)”前的復(fù)選框選中，然后確定。再在窗體中分別加入1個(gè)CommonDialog控件、1個(gè)Slider控件、3個(gè)Label控件、6個(gè)CommandButton控件和1個(gè)Status Bar控件。其中：
將Form1的“Caption”屬性設(shè)置為：Flash動(dòng)畫播放器。這是控制窗口。
將CommonDialog1的CancelError設(shè)置為True，DialogTitle設(shè)置為“打開Flash動(dòng)畫文件”，F(xiàn)ilter屬性設(shè)置為“Flash動(dòng)畫（＊.swf）|＊.swf|”，F(xiàn)ilterIndex設(shè)置為1，MaxFileSize設(shè)置為10240。
將Slider1的SelectRanger的屬性設(shè)置為“True”，SmallChange屬性和LargeChange屬性設(shè)置為10，TickFrequengcy屬性設(shè)置為20，TextPosition設(shè)置為“1 － SldBelowRight”。
將Label(1－3)分別放在Slider1下的左端、中間和右端。其中，Label1的Caption設(shè)置為“0幀”，Label2和Label3的Caption設(shè)置為空字符串。
6個(gè)CommandButton的“名稱”屬性分別為：cmdOpen、cmdPlay、cmdPause、cmdPre、cmdPreFrame、cmdNextFrame、cmdNext、cmdExit，“Caption”屬性分別為：打開、播放、暫停、上一個(gè)、上一幀、下一幀、下一個(gè)、退出。
在Status Bar上單擊鼠標(biāo)右鍵，選擇“屬性”，從彈出的窗口中選擇“窗格”頁(yè)面，用鼠標(biāo)點(diǎn)擊“插入窗格”5次，在索引1－5中分別設(shè)置“文本”屬性為：“共打開了0個(gè)文件”、“狀態(tài)：”、“等待”、“幀數(shù)：”、“0”，再適當(dāng)設(shè)置每一項(xiàng)的“最小寬度”的屬性（可參考圖1中的比例）。
進(jìn)入菜單編輯器（按快捷鍵Ctrl＋E）。設(shè)置第一個(gè)菜單標(biāo)題為“顯示控制”，名稱為：mnuDisplay；在“顯示控制”下設(shè)立子菜單標(biāo)題分別為“全部顯示”、“隨窗口大小變化”、“縮放至窗口大小”，名稱分別為：mnuDisplay0、mnuDisplay1、mnuDisplay2。設(shè)置第二個(gè)菜單標(biāo)題為“質(zhì)量控制”，名稱為：mnuQuality；在“質(zhì)量控制”下設(shè)立子菜單標(biāo)題分別為“低分辨率”、“高分辨率”，名稱分別為：mnuQuality0、mnuQuality1。設(shè)置第三個(gè)菜單標(biāo)題為“播放控制”，名稱為：mnuPlayControl；在“播放控制”下設(shè)立子菜單標(biāo)題分別為“循環(huán)播放”、“放大畫面”、“縮小畫面”，名稱分別為：mnuLoopPlay、mnuZoomIn、mnuZoomOut。
選擇“工程”菜單下的“添加窗體”命令，新增一個(gè)窗體Form2作為播放窗口。在Form2上加入1個(gè)ShockwaveFlash控件和1個(gè)Timer控件。將Timer1控件的“Interval”屬性設(shè)置為“20”。
最后，對(duì)各窗體、控件的大小、位置進(jìn)行適當(dāng)?shù)恼{(diào)整.
本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)
點(diǎn)擊舉報(bào)。
