| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 826 人关注过本帖
标题:在表单中制作动画(新手必读)转帖
只看楼主 加入收藏
lfd_008
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2006-9-20
收藏
 问题点数:0 回复次数:4 
在表单中制作动画(新手必读)转帖
在当今众多的编程语言中,VFP的简单、方便和实用使我一直情有独衷。它不仅提供了对中、小型数据库完善的管理和操作机制,在应用程序界面的设计上也提供了丰富的手段。比如说,VFP的表单设计器提供了图像控制,允许我们直接在表单中添加.BMP图片。稍显不足的是它不支持其他格式的图像,更不用说是动画了。 由于图像控制和其他控制一样,具有自己一整套的属性,在设计时可以动态地改变它,因此我在实践中摸索到一种变通的方法,在VFP的表单中加入模拟的“动画”。其设计思想是准备几帧连贯的.BMP图像(可用相关的绘图软件自行制作),利用计时器的计时功能,在规定的时间间隔内动态地改变所显示的.BMP图像。下面我就通过一个演示实例来加以说明。 首先,我准备了四幅连贯的红旗飘图像,分别取名为:1.bmp,2.bmp,3.bmp和4.bmp。如右图所示。然后使用表单设计器设计表单如下:演示表单其中包括三个控制:Image(图像),Timer(计时器)和Command(命令按钮)。
设置属性如下:Image.Picture=1.bmp
Ttimer.Enabled=.t.
Timer.Interval=200
Command.Caption=退出演示
在表单的Activate事件中添加如下代码:
Public I
I=1
在计时器的Timer事件中添加代码如下:
If I>=4
I=1
Else
I=I+1
Endif
Pic=Str(I,1)+".bmp"
Thisform.Image.Picture= Pic
在命令按钮的Click事件中添加代码如下:
Thisform.Release
最后,保存并运行表单,我们会看到窗口中一幅鲜艳的红旗在迎风招展。单击“退出演示”命令按钮,模拟动画的演示就结束了。(以上为转贴,出处忘了..)
以上总结出:
计时器的TIMER过程实质上是一个由其属性INTERVAL(时间间隔)控制的循环...通过以下程序可以看到它工作的过程:
计时器的TIMER()
I=I+1
? I
结果很有意思
搜索更多相关主题的帖子: 表单中 动画 数据库 转帖 
2006-09-25 21:13
bnsky
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2006-10-11
收藏
得分:0 
很好用的哦!向你学习!
2006-10-14 14:45
fown
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:58
帖 子:1229
专家分:171
注 册:2005-5-26
收藏
得分:0 
已经支持GIF了,不用再这样做了

有人说VFP不行了,我想说,你连VFP十分之一的功能都不会用,你怎么知道VFP不行?本人拒绝回答学生的问题我回答问题一般情况下只提供思路不提供代码,请理解
2006-10-14 16:59
gxtynh168
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2006-10-2
收藏
得分:0 
如果支持GIF就好了
2007-03-15 13:22
fown
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:58
帖 子:1229
专家分:171
注 册:2005-5-26
收藏
得分:0 
VFp已经支持GIF了

有人说VFP不行了,我想说,你连VFP十分之一的功能都不会用,你怎么知道VFP不行?本人拒绝回答学生的问题我回答问题一般情况下只提供思路不提供代码,请理解
2007-03-15 20:10
快速回复:在表单中制作动画(新手必读)转帖
数据加载中...
 
   



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

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