用VB编写Flash图像浏览器 作者 alpha 于 2005年08月18日 21:18:26 (898 次阅读) 该作者发布的其他新闻 在网络上有许多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 LoopMenuPlayingQualityScaleMode TrueTrueFlase12 　 lblFileName Caption 空白的 DriveListBox Drive1 　 　 PathListBox Path1 　 　 FileListBox File1 Pattern *.swf 3．将驱动器，目录和文件列表框建立联系Private Sub Dir1_Change()File1.Path = Dir1End SubPrivate Sub Drive1_Change()Dir1.Path = Drive1End Sub4．当鼠标选中某个swf文件的时候，动画立即放映 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 Sub5．编写按钮的事件 ‘ 上一帧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 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, vbNormalFocusEnd 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”文字，找到的文件路径即可用工具进行下载了。

评论