Database 版 (精华区)

发信人: mengy (LEAR DLLS 命令时，将从内存中清除), 信区: Database
标  题: 让你的文件飞起来 
发信站: 哈工大紫丁香 (2000年12月07日16:42:43 星期四), 站内信件


让你的文件飞起来


---- 
在Windows95/98中，当我们进行文件的复制、删除、移动、查找等操作时，系统会出来一个信息表单，显示操作情况。其中，进度条大家都会设计了，可是，那个文件飞来飞去、放大镜不停转动的动作怎么设计？本文以VFP6.0为例，告诉你如何让复制文件“飞”起来，使你的应用软件妙趣
横生。 

---- 实际上，大家看到的只不过是一段反复执行的动画而已。在微软的Visual Studio 6.0安装后，会在公用文件目录\Microsoft Visual Studio\Common\Graphics\Videos目录中，存放大量的AVI动画。文件“飞”起来的奥秘就在此处。下面，以文件复制为例，说明如何让文件飞起来。

一、生成动画表单 

---- 先生成一个表单，从控件工具栏中，加入“ActiveX控件（OleControl）”到表单上，并按屏幕提示选择“视频剪辑”。在此对象上单击鼠标右键，从快捷菜单中选择“视频剪辑对象\编辑”。这时，原来的VFP菜单系统将融入视频剪辑的菜单系统。从菜单中选择“插入剪辑\Windows 
视频”,系统提示选择要插入的视频文件，选择\Microsoft Visual Stu-dio\Common\Graphics\Videos\Filecopy.avi。如下图(略)。 

二、设置动画属性 

---- 1、重复播放。选择菜单“编辑\选项”，选中“自动重复”和“在客户文档中播放”两个复选框，其余取消。如下图。 

---- 2、刻度显示。选择菜单“数值\时间”，这样，你可以显示运行时间。大多数情况下，不必将时间显示出来。 

---- 3、激活方式。在VFP的属性窗口中，设置“布局\AutoActivate”为“1-获得焦点”。 

---- 4、调整大小。将此Ole控件适当拉长、减少高度，使之成为长条性。 

---- 5、测试。保存并运行此表单，你将看到，你的表单上有了会“飞”的文件。根据测试的结果调整控件大小和位置。

---- 6、加入其他控件。根据需要，可加入进度条、Label等控件。在本示例中，加入一个按钮，并在按钮的Click方法中加入如下代码：Thisform.Release() 

---- 运行结果如下图所示(略)。实际使用时，需根据实际情况对Ole控件的AutoActivate属性进行调整，并通过程序激活它。 

---- 读者可根据以上方法，运用自己熟悉的编程软件，通过选用不同的AVI，设计出文件查找、文件下载、文件移动文件删除等各种动画表单，甚至是声图文并茂的多媒体表单。 

[全文完] 

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.121]
※ 修改:·CF 於 12月07日17:35:39 修改本文·[FROM: 202.118.227.121]