标题:让你的复制文件“飞”起来
取消只看楼主
jjjlan
Rank: 1
等 级:新手上路
帖 子:67
专家分:0
注 册:2004-11-24
 问题点数:0 回复次数:0 
让你的复制文件“飞”起来

---- 在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,设计出文件查找、文件下载、文件移动文件删除等各种动画表单,甚至是声图文并茂的多媒体表单。

搜索更多相关主题的帖子: 应用软件 微软 Microsoft 放大镜 文件 
2005-06-18 14:09



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-21148-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.028338 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved