程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> Visual Basic語言 >> VB綜合教程 >> 用VB編寫FLASH動畫播放器

用VB編寫FLASH動畫播放器

編輯:VB綜合教程
Flash4是MacroMedia公司出品的矢量動畫創作專業軟件,利用該軟件制作的矢量動畫具有文件體積小、帶音效和兼容性好等特點。那麼,你想不想在自己編寫的程序中加入Flash動畫,為自己的程序添加一道亮麗的色彩呢?
  一、編程原理
  本程序利用了Flash4本身自帶播放Flash動畫的控件Swflash.ocx。你可以通過以下途徑獲得該控件:1、安裝Flash4;2、安裝Windows98自帶的Flash插件,方法:依次單擊“開始”菜單-“設置”-“控制面板”-“添加/刪除程序”-“Windows安裝程序”-“多媒體”-“詳細資料”-選中“MacromediaShockwaveFlash”前的復選框確定即可。以上方法都會將該控件安裝到Windows目錄下的SystemMacromedFlash子目錄下。
  二、示例程序
  下面就是一個用Swflash.ocx控件編寫的Flash動畫播放器。本程序可一次打開多個Flash動畫文件,並可在播放過程中選擇播放打開的文件、隨時改變播放質量、畫面大小等狀態;在播放過程中可以隨時對播放的當前幀數進行調整或者手動進行逐幀播放,在狀態欄裡有當前播放狀態的相關說明。在實現以上功能時,幾乎用全了Swflash.ocx控件的主要屬性、方法。
  編程過程如下:
  1、窗體、界面設計。
  新建工程,選擇“工程”菜單下的“部件”命令,在“部件”窗口的“控件”列表中將“Shockwaveflash”、“MicrosoftCommonDialogControl6.0(SP3)”、“MicrosoftWindowsCommonControl6.0(SP3)”前的復選框選中,然後確定。再在窗體中分別加入1個CommonDialog控件、1個Slider控件、3個Label控件、6個CommandButton控件和1個StatusBar控件。其中:
  將Form1的“Caption”屬性設置為:Flash動畫播放器。這是控制窗口。
  將CommonDialog1的CancelError設置為True,DialogTitle設置為“打開Flash動畫文件”,Filter屬性設置為“Flash動畫(*.swf)|*.swf|”,FilterIndex設置為1,MaxFileSize設置為10240。
  將Slider1的SelectRanger的屬性設置為“True”,SmallChange屬性和LargeChange屬性設置為10,TickFrequengcy屬性設置為20,TextPosition設置為“1-SldBelowRight”。
  將Label(1-3)分別放在Slider1下的左端、中間和右端。其中,Label1的Caption設置為“0幀”,Label2和Label3的Caption設置為空字符串。
  6個CommandButton的“名稱”屬性分別為:cmdOpen、cmdPlay、cmdPause、cmdPre、cmdPreFrame、cmdNextFrame、cmdNext、cmdExit,“Caption”屬性分別為:打開、播放、暫停、上一個、上一幀、下一幀、下一個、退出。
  在StatusBar上單擊鼠標右鍵,選擇“屬性”,從彈出的窗口中選擇“窗格”頁面,用鼠標點擊“插入窗格”5次,在索引1-5中分別設置“文本”屬性為:“共打開了0個文件”、“狀態:”、“等待”、“幀數:”、“0”,再適當設置每一項的“最小寬度”的屬性(可參考圖1中的比例)。
  進入菜單編輯器(按快捷鍵Ctrl+E)。設置第一個菜單標題為“顯示控制”,名稱為:mnuDisplay;在“顯示控制”下設立子菜單標題分別為“全部顯示”、“隨窗口大小變化”、“縮放至窗口大小”,名稱分別為:mnuDisplay0、mnuDisplay1、mnuDisplay2。設置第二個菜單標題為“質量控制”,名稱為:mnuQuality;在“質量控制”下設立子菜單標題分別為“低分辨率”、“高分辨率”,名稱分別為:mnuQuality0、mnuQuality1。設置第三個菜單標題為“播放控制”,名稱為:mnuPlayControl;在“播放控制”下設立子菜單標題分別為“循環播放”、“放大畫面”、“縮小畫面”,名稱分別為:mnuLoopPlay、mnuZoomIn、mnuZoomOut。
  選擇“工程”菜單下的“添加窗體”命令,新增一個窗體Form2作為播放窗口。在Form2上加入1個ShockwaveFlash控件和1個Timer控件。將Timer1控件的“Interval”屬性設置為“20”。
  最後,對各窗體、控件的大小、位置進行適當的調整,其大小、位置可參考圖1。
  2、程序代碼
  第一步:在Form1的代碼窗口中添加以下代碼:
  DimFileNames()AsString注釋:用於保存打開的文件名稱。
  DimPlayFileNumAsInteger注釋:用於計算正在播放的文件序號。
  DimTotalFileAsInteger注釋:用於統計打開的文件總數。
  PrivateSubcmdOpen_Click()注釋:打開
  OnErrorGoToExitOpen
  CommonDialog1.Flags=cdlOFNAllowMultiselectOrcdlOFNFileMustExistOrcdlOFNExplorer
  CommonDialog1.FileName=″"
  CommonDialog1.ShowOpen注釋:顯示“打開”對話框。
  注釋:以vbNullChar作為子字符串的邊界分隔字符串CommonDialog1返回的FileName。
  FileNames()=Split(CommonDialog1.FileName,vbNullChar)
  IfUBound(FileNames)=0Then注釋:用戶只打開了一個文件。
  Form2!ShockwaveFlash1.Movie=FileNames(0)
  TotalFile=1
  PlayFileNum=0
  Else注釋:用戶打開了多於一個文件。
  Form2!ShockwaveFlash1.Movie=FileNames(0)+″″+FileNames(1)
  TotalFile=UBound(FileNames)
  PlayFileNum=1
  EndIf
  StatusBar1.Panels(1).Text=″共打開了″+Trim(Str(TotalFile))+″個文件″
  cmdPlay_Click
  ExitOpen:
  EndSub
  PrivateSubcmdPlay_Click()注釋:開始播放
  IfTotalFile<1ThenExitSub注釋:用戶還沒有打開文件。
  注釋:顯示Form2開始播放動畫。
  Form2.Caption=FileNames(PlayFileNum)+″-Flash動畫播放器″
  Form2.Show
  Form2!ShockwaveFlash1.Playing=True
  IfTotalFile=1ThenPlayFileNum=0
  注釋:顯示狀態條的信息。
  StatusBar1.Panels(3).Text=″正在播放文件:″+FileNames(PlayFileNum)+″...″
  注釋:顯示滑動條的狀態。
  Slider1.Max=Form2!ShockwaveFlash1.TotalFrames
  Label2.Caption=Str(Slider1.Max/2)+″幀″
  Label3.Caption=Str(Slider1.Max)+″幀″
  EndSub
  PrivateSubcmdPause_Click()注釋:暫停播放
  Form2!ShockwaveFlash1.Stop
  EndSub
  PrivateSubcmdPre_Click()注釋:播放上一個文件
  IfTotalFile<>1Then注釋:當用戶打開多於一個文件時
  PlayFileNum=PlayFileNum-1
  IfPlayFileNum<1ThenPlayFileNum=TotalFile
  Form2!ShockwaveFlash1.Movie=FileNames(0)+″″+FileNames(PlayFileNum)
  EndIf
  注釋:顯示播放狀態的信息。
  StatusBar1.Panels(3).Text=″正在播放文件:″+FileNames(PlayFileNum)+″...″
  Slider1.Max=Form2!ShockwaveFlash1.TotalFrames
  Form2.Caption=FileNames(PlayFileNum)+″-Flash動畫播放器″
  Label2.Caption=Str(Slider1.Max/2)+″幀″
  Label3.Caption=Str(Slider1.Max)+″幀″
  EndSub
  PrivateSubcmdNext_Click()注釋:播放下一個文件
  IfTotalFile<>1Then注釋:用戶打開多於一個文件時
  PlayFileNum=PlayFileNum+1
  IfPlayFileNum>TotalFileThenPlayFileNum=1
  Form2!ShockwaveFlash1.Movie=FileNames(0)+″″+FileNames(PlayFileNum)
  EndIf
  注釋:顯示播放狀態的信息。
  StatusBar1.Panels(3).Text=″正在播放文件:″+FileNames(PlayFileNum)+″...″
  Slider1.Max=Form2!ShockwaveFlash1.TotalFrames
  Form2.Caption=FileNames(PlayFileNum)+″-Flash動畫播放器″
  Label2.Caption=Str(Slider1.Max/2)+″幀″
  Label3.Caption=Str(Slider1.Max)+″幀″
  EndSub
  PrivateSubcmdPreFrame_Click()注釋:跳到動畫的上一幀
  Form2!ShockwaveFlash1.Back
  EndSub
  PrivateSubcmdNextFrame_Click()注釋:跳到動畫的下一幀
  Form2!ShockwaveFlash1.Forward
  EndSub
  PrivateSubcmdExit_Click()注釋:退出程序
  End
  EndSub
  PrivateSubSlider1_Scroll()
  注釋:當用戶拖動滑動條時,將播放幀數設置為滑動條中的值。
  Form2!ShockwaveFlash1.FrameNum=Slider1.Value
  EndSub
  PrivateSubmnuDisplay0_Click()
  注釋:將畫面大小設置為在控件內保持動畫原來比例全部顯示
  Form2!ShockwaveFlash1.ScaleMode=0
  mnuDisplay0.Checked=True
  mnuDisplay1.Checked=False
  mnuDisplay2.Checked=False
  EndSub
  PrivateSubmnuDisplay1_Click()
  注釋:將畫面的縮放設置為隨控件橫向(或縱向)的縮放而變化
  Form2!ShockwaveFlash1.ScaleMode=1
  mnuDisplay0.Checked=False
  mnuDisplay1.Checked=True
  mnuDisplay2.Checked=False
  EndSub
  PrivateSubmnuDisplay2_Click()
  注釋:將畫面大小設置為不理會動畫原來比例縮放至控件大小
  Form2!ShockwaveFlash1.ScaleMode=2
  mnuDisplay0.Checked=False
  mnuDisplay1.Checked=False
  mnuDisplay2.Checked=True
  EndSub
  PrivateSubmnuLoopPlay_Click()
  注釋:將播放方式設置為循環或不循環。
  mnuLoopPlay.Checked=NotmnuLoopPlay.Checked
  Form2!ShockwaveFlash1.Loop=NotForm2!ShockwaveFlash1.Loop
  EndSub
  PrivateSubmnuQuality0_Click()
  注釋:將畫面質量設置為低分辨率
  Form2!ShockwaveFlash1.Quality=0
  mnuQuality0.Checked=True
  mnuQuality1.Checked=False
  EndSub
  PrivateSubmnuQuality1_Click()
  注釋:將畫面質量設置為高分辨率
  Form2!ShockwaveFlash1.Quality=1
  mnuQuality0.Checked=False
  mnuQuality1.Checked=True
  EndSub
  PrivateSubmnuZoomIn_Click()
  注釋:放大畫面。
  Form2!ShockwaveFlash1.Zoom(50)
  EndSub
  PrivateSubmnuZoomOut_Click()
  注釋:縮小畫面。
  Form2!ShockwaveFlash1.Zoom(200)
  EndSub
  PrivateSubForm_Unload(CancelAsInteger)
  End注釋:結束程序
  EndSub
  第二步:在Form2的代碼窗口中添加以下代碼:
  PrivateSubForm_Resize()
  注釋:將ShockwaveFlash1控件的大小設置為Form2的大小。
  ShockwaveFlash1.Top=Form2.ScaleTop
  ShockwaveFlash1.Left=Form2.ScaleLeft
  ShockwaveFlash1.Width=Form2.ScaleWidth
  ShockwaveFlash1.Height=Form2.ScaleHeight
  EndSub
  PrivateSubTimer1_Timer()
  注釋:在狀態欄和滑動條上顯示當前播放的幀。
  Form1!StatusBar1.Panels(5).Text=Str(ShockwaveFlash1.FrameNum)
  Form1!Slider1.Value=ShockwaveFlash1.FrameNum
  EndSub
  第三步:調試、運行程序,運行界面如圖2所示。
  當播放Flash動畫時,在播放窗口中單擊鼠標右鍵時,將會彈出如圖3所示的菜單。在該菜單,我們可以完成控制Flash動畫播放的大部份工作。若想取消該功能,只要將Shockwaveflash控件的Menu屬性設置為False即可。
  以上程序在Windows98,VB6.0下運行通過。->

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved