用VB编写Flash图像浏览器

    Flash编写的动画，可惜的是只能在线观看，若下载下来则必须安装Flash 才能观看。可是Flash 对于只想观看动画来说未必太大了吧，那么有没有可能自己制作一个Flash图像浏览器？当然可以，请跟我来。



　　首先需要安装Flash控件SwFlash.ocx。 您可以通过“控制面板”—“添加/删除程序”进行安装。选择“Windows 安装程序”页，在“多媒体”中选择“详细资料”，将“Macromedia Shockwave Flash”前的复选项选中，将Windows 98光盘放入光驱，点击“确定”即可将控件安装注册。

　　让我们再来看看控件SwFlash.ocx的基本属性：

属性
取值及说明LoopTrue：允许循环播放

False：不允许循环播放MenuTrue：允许显示右键快捷菜单
False：不允许显示右键快捷菜单 Movie所要播放的动画文件的路径和文件名 PlayingTrue：播放
False：停止Quality0：低分辨率( 即Quality2：Low)

1：高分辨率( 即Quality2：High)

2：自动降低分辨率 ( 即Quality2：AutoLow)

3：自动升高分辨率( 即Quality2：AutoHigh)
Quality2见上，和Quality变化一致ScaleMode0：全部显示(即Scale：Showall)

1：无边界(即Scale：NoBorder)

2：自动适应控件大小(即Scale：ExactFit)
Scale见上，和ScaleMode变化一致

编程：

　　1．打开VB，新建工程，在“控件”工具箱空白处单击右键，在快捷菜单中选择“添加控件”，在控件列表中选中“Shockware sh”复选框，按“确定”即可将SwFlash.ocx控件添加到“控件” 工具箱。　　　　　2．按照图1位置在Form1中添加若干控件，其属性如下表：
控件类型控件名称属性值CommandButtomcmdPlayCaption播放cmdStopCaption停止cmdback
Caption上一帧cmdForward
Caption
下一帧ShockwareFlashShockwaveFlash1Loop

Menu

Playing

Quality

ScaleModeTrue

True

Flase

1

2
lblFileNameCaption空白的DriveListBoxDrive1PathListBoxPath1FileListBoxFile1Pattern*.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: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”文字，找到的文件路径即可用工具进行下载了。