在VFP60程序设计中动画效果的运用.doc

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