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:mralways@fm365.com", vbNullString, vbNullString, vbNormalFocus

End Sub

　　这样，经过编译为执行文件，一个简单又实用的Flash 图像浏览器就做成功了
标签：