用VB編寫Flash圖像瀏覽器

作者：王東

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控件添加到“控件” 工具箱?！　　　　?．按照圖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.anti-gravitydesign.com