在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'

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、结束语：以上使用计时器控件设置了几种动画效果，在此基础上还可以演变出其它的动画效果来，比如，文字依次从左边向右展开，从左侧飞入等等。上述标签控件若改为图象控件也可使用。