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