在VFP6.0程序设计中使用动画效果
在VFP6.0程序设计中使用动画效果
在VFP6.0程序设计中使用动画效果
邯郸物资中专学校 张巍
摘要：本文引用几个实际例子，说明使用VFP6.0开发程序时，使用户的界面具有动画效果，主要使用了计时器控件。
关键词：表单，计时器控件，事件代码
1、引言:Visual Foxpro 6.0采用了可视化的面向对象的编程工具和对OLE和ActiveX的支持，可以通过引用相关对象的方法或定义其属性来标控和使用一些对象。在使用VFP6.0进行系统设计时，开发人员常常希望设计的界面生动，美观，这就需要适当地运用动画的设计，才能达到这些效果。下面介绍使用表单中计时器控件创建动画的方法。
2、基本思想：计时器控件能周期性地按时间间隔自动执行它的Timer事件代码，在程序中来处理反复发生的动作。计时器控件工作的三要素是①Timer事件代码，表示执行的动作。②Interval 属性，用于指定时间间隔。③Enabled属性，其值为T时，启动计时工作，为F时挂起计时器的运行。程序设计中首先创建表单，在表单中添加表单控件，再设置其各的属性值。
3、程序设计：
1）让文字移动，设置一个向左移动的字幕。
在表单上添加标签和计时器控件各一个，将Label1 的Caption 值设置为“欢迎光临”，Timer1的Interval的值设置为200，Enabled设置为T
Timer的事件代码编写如下：
IF Thisform.label1.left- Thisform.label1.width<0
Thisform.label1.left= Thisform.width
ELSE
Thisform.label1.left= Thisform.label1.left-10
ENDIF
即“欢迎光临”在表单中就有动画效果，四个字从右边游入，左边游出，并不断循环执行。
2）让文字飞起来，设置“欢迎光临”四个字从表单底部飞入。
在表单上创建标签控件（四个）和计时器控件（一个）属性设置方法同1）。
Timer的事件代码编写如下：
Labelt='labelt'+str(n,1)+'.top'
在VFP6.0程序设计中使用动画效果IF Thisform.&labelt<=high
Thisform.&labelt=high
N=N+1
IF N=5
Thisform.timer1.enabled=.F.
n=1
ENDIF
ENDIF
Thisform.&labelt=Thisform.&labelt-10
FORM的Activate事件代码：
PUBLIC high, n
n=1
i=1
high=Thisform.labebl1.top
DO WHILE I<=4
labelt='label'+str(i,1)+'.top'
Thisform．&labelt=Thisform.hight
i= i+1
ENDDO
上述操作产生动画效果是,四个字依次从表单底部飞入表单上部。
2）设置当前日期时间
表单控件和属性同1）
Timer的事件代码编写如下：
IF Thisform.label1.caption<>TTOC(datetime())
Thisform.label1.caption=TTOC(datetime())
ENDIF
表单中的值将随着时间日期的变化而变化。
4、结束语：以上使用计时器控件设置了几种动画效果，在此基础上还可以演变出其它的动画效果来，比如，文字依次从左边向右展开，从左侧飞入等等。上述标签控件若改为图象控件也可使用。