亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 學院 > 開發設計 > 正文

用VB編寫FLASH動畫播放器

2019-11-18 17:35:04
字體：大 中 小
來源：轉載
供稿：網友
Flash4是MacroMedia公司出品的矢量動畫創作專業軟件，利用該軟件制作的矢量動畫具有文件體積小、帶音效和兼容性好等特點。那么，你想不想在自己編寫的程序中加入Flash動畫，為自己的程序添加一道亮麗的色彩呢？
　　一、編程原理
　　本程序利用了Flash4本身自帶播放Flash動畫的控件Swflash.ocx。你可以通過以下途徑獲得該控件：1、安裝Flash4；2、安裝Windows98自帶的Flash插件，方法：依次單擊“開始”菜單－“設置”－“控制面板”－“添加/刪除程序”－“Windows安裝程序”－“多媒體”－“詳細資料”－選中“MacromediaShockwaveFlash”前的復選框確定即可。以上方法都會將該控件安裝到Windows目錄下的System/Macromed/Flash子目錄下。
　　二、示例程序
　　下面就是一個用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、cmd　　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下運行通過。->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
成人久久一区二区| 伊人伊成久久人综合网小说| 色悠久久久久综合先锋影音下载| 亚洲综合在线做性| 日韩av免费观影| 国产精品一区二区久久久久| 久久视频在线播放| 成人疯狂猛交xxx| 午夜精品免费视频| 日本久久91av| 欧美极品xxxx| 久久久精品日本| 国产成人精品日本亚洲专区61| 欧美电影在线观看| 亚洲国产另类 国产精品国产免费| 亚洲午夜精品久久久久久久久久久久| 亚洲免费av网址| 日韩乱码在线视频| 亚洲黄色有码视频| 国产精品入口日韩视频大尺度| 国产日韩欧美影视| 精品久久久久久久久久久久久| 欧美精品免费在线观看| 欧美老女人www| 日韩av在线免费观看| 黄色精品一区二区| 亚洲欧美日韩国产中文专区| 国内精品久久影院| 国产性色av一区二区| 日韩精品久久久久| 国产精品久久久久久久久久久久久| 中文字幕日韩精品在线观看| 狠狠色狠色综合曰曰| 亚洲图片在线综合| 国产一区二区三区视频免费| 国产成人一区二区| 欧美精品福利在线| 亚州欧美日韩中文视频| 久久久亚洲福利精品午夜| 色综合亚洲精品激情狠狠| 欧美一区二区三区精品电影| 亚洲欧美www| 亚洲xxxx3d| 亚洲国产精品va在线观看黑人| 久精品免费视频| 日本成熟性欧美| 国产日韩综合一区二区性色av| 欧美www视频在线观看| 亚洲成人教育av| 7777kkkk成人观看| 国产精品美女呻吟| 激情亚洲一区二区三区四区| 日韩免费在线视频| 日韩在线视频二区| 一区二区亚洲欧洲国产日韩| 欧美大片在线影院| 亚洲精品国产品国语在线| 亚洲精品久久久久| 孩xxxx性bbbb欧美| 久久久久九九九九| 国产精品无码专区在线观看| 国产视频亚洲精品| 久99九色视频在线观看| 国内精品久久久久伊人av| 久久久久久有精品国产| 欧美日韩一区二区精品| 亚洲春色另类小说| 午夜精品久久久久久久99黑人| 欧美乱大交xxxxx另类电影| 日韩视频第一页| 2019国产精品自在线拍国产不卡| 欧美视频专区一二在线观看| 国产香蕉97碰碰久久人人| 国产成人精品久久| 亚洲最新视频在线| 久久99久国产精品黄毛片入口| 国产精品视频久| 国产精品日韩电影| 欧美性做爰毛片| 国产精品久久久久免费a∨| 高清在线视频日韩欧美| 久久精品成人一区二区三区| 国产精品久久久久秋霞鲁丝| 亚洲国产精品女人久久久| 欧美大片在线看| 精品精品国产国产自在线| 色老头一区二区三区| 国产精品久久久久久五月尺| 视频一区视频二区国产精品| 欧美xxxx14xxxxx性爽| 国产精品视频资源| 51色欧美片视频在线观看| 欧美高清一级大片| 欧美专区第一页| 国产ts人妖一区二区三区| 国产精品永久免费在线| 国产精品亚洲美女av网站| 国产精品自拍视频| 成人国产精品日本在线| 福利精品视频在线| 这里只有精品久久| 亚洲综合在线播放| 国产精品成人观看视频国产奇米| 国产精品夫妻激情| 欧美日韩免费一区| 亚洲天堂av女优| 最新69国产成人精品视频免费| 欧美大片va欧美在线播放| 欧美国产日韩一区| 国产精品偷伦一区二区| 亚洲国产精品va| 国产精品久久99久久| 91精品国产高清自在线| 欧美成人午夜剧场免费观看| 国产一区二区三区在线观看视频| 三级精品视频久久久久| 国产91精品网站| 欧美一区第一页| 欧美极品少妇xxxxⅹ裸体艺术| 欧美一区二区三区免费观看| 国产精品九九九| 精品国产福利视频| 色综合视频一区中文字幕| 一区二区三区视频观看| 久久av资源网站| 欧美日韩第一页| 国产成人精品电影久久久| 亚洲欧美国产高清va在线播| 亚洲精品日韩在线| 欧美猛交ⅹxxx乱大交视频| 欧美成人精品在线| 欧美极度另类性三渗透| 久久69精品久久久久久国产越南| 亚洲免费伊人电影在线观看av| 亚洲精品国精品久久99热一| 国产精品第2页| 一区二区三区视频免费| www日韩中文字幕在线看| 全亚洲最色的网站在线观看| 国产欧美精品一区二区三区介绍| 人妖精品videosex性欧美| 日韩成人激情在线| 亚洲黄色片网站| 成人性生交大片免费看小说| 色yeye香蕉凹凸一区二区av| 不卡伊人av在线播放| 69视频在线免费观看| 久久久综合免费视频| 亚洲国产又黄又爽女人高潮的| 亚洲天堂第一页| 伊人男人综合视频网| 亚洲电影免费观看高清完整版在线观看| 欧美成人剧情片在线观看| 亚洲国产成人精品一区二区| 精品无人国产偷自产在线| 韩国v欧美v日本v亚洲| www.日韩欧美| 精品视频在线播放色网色视频| 亚洲一区二区三区视频| 欧美日韩视频免费播放| 亚洲第一免费播放区| 亚洲理论在线a中文字幕| 欧美激情一二三| 国产精品88a∨|