在网络上有许多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 flash”复选框,按“确定”即可将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
Private Sub File1_Click()‘ 设置按钮和Swflash.ocx控件的状态cmdStop.Enabled = TruecmdBack.Enabled = TruecmdForward.Enabled = TrueShockwaveFlash1.Visible = TrueShockwaveFlash1.Playing = TrueShockwaveFlash1.Movie = File1.Path + "\" + File1lblFilename.Caption = "当前放映的动画是" + File1.Path + "\" + File1End Sub‘ 上一帧Private Sub cmdBack_Click()ShockwaveFlash1.BackEnd Sub‘ 下一帧Private Sub cmdForward_Click()ShockwaveFlash1.ForwardEnd Sub‘ 播放Private Sub cmdPlay_Click()ShockwaveFlash1.PlaycmdPlay.Enabled = FalsecmdStop.Enabled = TrueEnd Sub‘ 停止Private Sub cmdStop_Click()ShockwaveFlash1.StopcmdStop.Enabled = FalsecmdPlay.Enabled = TrueEnd 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 图像浏览器就做成功了。
7. 附:
网上的Flash动画资源有:
网易 Flash 站:http://flash.163.com/
Flash 图库:http://www.china-contact.com/flash/
天极网 网页陶吧之Flash站:http://desktop.yesky.com/home/flash.htm
有些网页上根本就不提供动画的下载功能,您可以单击右键,打开快捷菜单中的“查看源码”,用“查找”功能查找“.swf”文字,找到的文件路径即可用工具进行下载了。
评论