≡諭縞嫌行磯郌lash編寫的動畫，可惜的是只能在線觀看，若下載下來則必須安裝Flash 才能觀看。可是Flash 對于只想觀看動畫來說未必太大了吧，那么有沒有可能自己制作一個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

圖1

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:[email protected]", 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”文字，找到的文件路徑即可用工具進行下載了。