在VFP6.docx

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