用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



图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