用VB编写Flash图像浏览器
作者：王东
flash编写的动画，可惜的是只能在线观看，若下载下来则必须安装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
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 图像浏览器就做成功了。您可以到中国软件程序员大本营(/uploadfile/201210/16/A4223019617.swf”文字，找到的文件路径即可用工具进行下载了。