flash編寫的動畫，可惜的是只能在線觀看，若下載下來則必須安裝Flash 才能觀看�？墒荈lash 對于只想觀看動畫來說未必太大了吧，那么有沒有可能自己制作一個Flash圖像瀏覽器？當然可以，請跟我來。
首先需要安裝Flash控件Swflash.ocx。 您可以通過“控制面板”—“添加/刪除程序”進行安裝。選擇“Windows 安裝程序”頁，在“多媒體”中選擇“詳細資料”，將“Macromedia Shockwave Flash”前的復選項選中，將Windows 98光盤放入光驅，點擊“確定”即可將控件安裝注冊。
讓我們再來看看控件Swflash.ocx的基本屬性：
屬性
取值及說明
Loop True：允許循環播放
False：不允許循環播放
Menu True：允許顯示右鍵快捷菜單
False：不允許顯示右鍵快捷菜單
Movie 所要播放的動畫文件的路徑和文件名
Playing True：播放
False：停止
Quality 0：低分辨率( 即Quality2：Low)
1：高分辨率( 即Quality2：High)
2：自動降低分辨率 ( 即Quality2：AutoLow)
3：自動升高分辨率( 即Quality2：AutoHigh)
Quality2 見上，和Quality變化一致
ScaleMode 0：全部顯示(即Scale：Showall)
1：無邊界(即Scale：NoBorder)
2：自動適應控件大小(即Scale：ExactFit)
Scale 見上，和ScaleMode變化一致
編程：
1．打開VB，新建工程，在“控件”工具箱空白處單擊右鍵，在快捷菜單中選擇“添加控件”，在控件列表中選中“Shockware sh”復選框，按“確定”即可將Swflash.ocx控件添加到“控件” 工具箱�！ �2．按照圖1位置在Form1中添加若干控件，其屬性如下表：
控件類型 控件名稱 屬性 值
CommandButtom cmdPlay Caption 播放
cmdStop Caption 停止
cmdback
Caption 上一幀
cmdForward
Caption
下一幀
Shockwareflash ShockwaveFlash1 Loop
Menu
Playing
Quality
ScaleMode True
True
Flase
1
2
lblFileName Caption 空白的
DriveListBox Drive1
PathListBox Path1
FileListBox File1 Pattern *.swf
3．將驅動器，目錄和文件列表框建立聯系
Private Sub Dir1_Change()
File1.Path = Dir1
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1
End Sub
4．當鼠標選中某個swf文件的時候，動畫立即放映
Private Sub File1_Click()
‘ 設置按鈕和Swflash.ocx控件的狀態
cmdStop.Enabled = True
cmdBack.Enabled = True
cmdForward.Enabled = True
ShockwaveFlash1.Visible = True
ShockwaveFlash1.Playing = True
ShockwaveFlash1.Movie = File1.Path + "\" + File1
lblFilename.Caption = "當前放映的動畫是" + File1.Path + "\" + File1
End Sub
5．編寫按鈕的事件
‘ 上一幀
Private Sub cmdBack_Click()
ShockwaveFlash1.Back
End Sub
‘ 下一幀
Private Sub cmdForward_Click()
ShockwaveFlash1.Forward
End Sub
‘ 播放
Private Sub cmdPlay_Click()
ShockwaveFlash1.Play
cmdPlay.Enabled = False
cmdStop.Enabled = True
End Sub
‘ 停止
Private Sub cmdStop_Click()
ShockwaveFlash1.Stop
cmdStop.Enabled = False
cmdPlay.Enabled = True
End Sub
6．編寫 點擊E-mail 地址的電子郵件調用
‘申明API函數
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
‘ 調用電子郵件
Private Sub lblRight_Click()
ShellExecute 0&, vbNullString, "mailto:mralways@fm365.com", vbNullString, vbNullString, vbNormalFocus
End Sub
這樣，經過編譯為執行文件，一個簡單又實用的Flash 圖像瀏覽器就做成功了。您可以到中國軟件程序員大本營(http://www.csdn.net/cnshare/softview.asp?id=3248)或硅谷動力下載區(http://www.esoftware.com.cn/filebrhoto/see/2000102301.shtml)去下載我的作品。
網上的Flash動畫資源有：
網易 Flash 站：http://flash.163.com/
Flash 圖庫：http://www.china-contact.com/flash/
天極網 網頁陶吧之Flash站：http://desktop.yesky.com/home/flash.htm
有些網頁上根本就不提供動畫的下載功能，您可以單擊右鍵，打開快捷菜單中的“查看源碼”，用“查找”功能查找“.swf”文字，找到的文件路徑即可用工具進行下載了。
延伸閱讀
文章來源于領測軟件測試網 http://www.kjueaiud.com/
