文字动画效果在程序设计中的应用

维普资讯 http://www.cqvip.com ・３０・　Ｃｏｍｐｕｔｅｒ　Ｅｒａ　Ｎｏ．７　２００２　文字动画效果在程序设计中的应用　刘青云　（浙江经贸职业技术学院，浙江杭州３１００１２）　１引言　在用ＶＦＰ进行系统开发时，设计者常常希望自己的设计能　与众不同，界面既美观又　生动，此时可适当运用一下文字动画设　计，就可达到这一效果。　文将几种常用的文字动画设计方法介　绍给读者　２程序设计的基本思路　运用面向对象的程序设计思想为主导，再与结构化程序设　计相结合。首先创建一个表单对象，然后在表单中添加一个时钟　控件和若干个标签控件，在Ｔｉｍｅｒ　Ｅｖｅｎｔ中定义字体的位置，而　在表单的Ａｃｔｉｖｅ　Ｅｖｅｎｔ中通过对Ｔｏｐ、Ｈｅｉｇｈｔ、Ｗｉｄｔｈ等属性值的　改变使文字动起来，两个事件代码结合起来再通过时钟控件的　Ｉｎｔｅｒｖａｌ属性的设置，即可达到动画效果。　３程序设计的准备工作　１）创建对象　新建一个表单，向表单中添加所需控件，例如我们希望在表　单中动画显示“人事档案系统”这６个字，就必须在表单中添加　６个标签控件和一个时钟控件（如图ｌ所示）。　２）设置控件的属性　为了突出动画设计的过程，这里不再考虑其他控件属性的　设置问题，只考虑标签与时钟控件属性的设置。将各标签控件的　Ｂａｃｋｓｔｙｌｅ设置为透明，将时钟控件的Ｉｎｔｅｒｖａｌ属性设置为］００　（此属性值用户可根据情况自行修改）。　４程序代码编写　１）文字从底部飞入动画效果的程序代码如下　●将Ｔｉｍｅｒ　Ｅｖｅｎｔ定义为：　Ｌａｂｅｌｔ＝‘Ｌａｂｅｌ‘＋Ｓｔｒ（Ｎｕｍ，１）＋．．Ｔｏｐ‘　Ｉｆ　Ｔｈｉｓｆｏｒｍ．＆ＬａｂｅＩｔ＜＝ＴＯＤ＋３Ｏ　Ｔｈｉｓｆｏｒｍ．＆Ｌａｂｅｌｔ＝Ｔｏｐ　Ｎｕｍ＝Ｎｕｍ＋１　Ｉｆ　Ｎｕｍ＝７　Ｔｈｉｓｆｏｒｍ．Ｔｉｍｅｒ１．Ｅｎａｂｌｅｄ＝．Ｆ．　Ｎｕｍ＝ｌ　Ｅｎｄｉｆ　Ｒｅｔｕｒｎ　Ｅｎｄｉｆ　ＴｈｉｓｆＯｒｍ．＆ＬａｂｅＩｔ＝ＴｈｉｓｆＯｒｍ．＆Ｌａｂｅｌｔ－３０　●将Ｆｏｒｍｌ的Ａｃｔｉｖ　Ｅｖｅｎｔ定义为：　Ｐｕｂｌｉｃ　Ｔｏｐ．Ｎｕｍ　Ｎｕｍ＝ｌ　Ｔｏｐ＝Ｔｈｉｓｆｏｒｍ．Ｌａｂｅｌ１．Ｔｏｐ　Ｆｏｒ　Ｉ＝１　Ｔｏ　６　Ｌａｂｅｌｔ＝’Ｌａｂｅｌ’＋Ｓｔｒ（Ｉ．１）＋　．Ｔｏｐ’　Ｔｈｉｓｆｏｒｍ．＆Ｌａｂｅｌｔ＝Ｔｈｉｓｆｏｒｍ．Ｈｅｉｇｈｔ　Ｅｎｄｆｏｒ　Ｔｈｉｓｆｏｒｍ．Ｔｉｍｅｒ１．Ｅｎａｂｌｅｄ＝．Ｔ．　２）文字依次从左边向右展开　控件属性的设置与上述动画效果略有不同，除了将各标签　控件的Ｂａｃｋｓｔｙｌｅ设置为透明，将时钟控件的Ｉｎｔｅｖｒａｌ属性设置　为］００以外，再将各标签控件的Ａｌｉｇｎｍｅｎｔ属性设置为右对齐，　Ａｕｔｏｓｉｚｅ属性设置为．Ｆ．（如图２所示），事件代码如下：　●将Ｔｉｍｅｒ　Ｅｖｅｎｔ定义为：　Ｌａｂｅｌｗ＝’Ｌａｂｅｌ’＋Ｓｔｒ（Ｎｕｍ．１）＋－．Ｗｉｄｔｈ’　……＆＆同１），程序略　Ｔｈｉｓｆｏｒｍ．＆Ｌａｂｅｌｗ＝Ｔｈｉｓｆｏｒｍ．＆Ｌａｂｅｌｗ＋７　●将Ｆｏｒｍ］的Ａｃｔｉｖｅ　Ｅｖｅｎｔ定义为：　Ｐｕｂｌｉｃ　Ｗｉｄｔｈ．Ｎｕｍ　Ｎｕｍ＝ｌ　Ｗｉｄｔｈ＝Ｔｈｉｓｆｏｒｍ．Ｌａｂｅｌ１．Ｗｉｄｔｈ　Ｆｏｒ　Ｉ＝１　Ｔｏ　６　Ｌａｂｅｌｗ＝’Ｌａｂｅｌ’＋Ｓｔｒ（Ｉ．１）　．Ｗｉｄｔｈ　Ｔｈｉｓｆ０ｒｍ．＆Ｌａｂｅｌｗ＝０　Ｅｎｄｆｏｒ　Ｔｈｉｓｆ０ｒｍ．Ｔｉｍｅｒ１．Ｅｎａｂｌｅｄ＝　Ｔ．　曩　图１设计初始的表单　图２滚入时的效果图　３）滚动字幕　即文字从右边滚入，从左边滚出，并不断循环执行。　●将Ｔｉｍｅｒ　Ｅｖｅｎｔ定义为：　Ｉｆ　Ｔｈｉｓｆ０ｒｍ．Ｌａｂｅｌ１．Ｌｅｆｔ＜０－Ｔｈｉｓｆｏｒｍ．Ｌａｂｅｌ１．Ｗｉｄｔｈ　Ｔｈｉｓｆｏｒｍ．Ｌａｂｅｌ１．Ｌｅｆｔ＝Ｔｈｉｓｆｏｒｍ．Ｗｉｄｔｈ＋０　５　Ｔｈｉｓｆｏｒｍ．Ｌａｂｅｌ１．Ｌｅｆｔ＝Ｔｈｉｓｆｏｒｍ．Ｌａｂｅｌ１．Ｌｅｆｔ－５　Ｅｌｓｅ　Ｔｈｉｓｆｏｒｍ．Ｌａｂｅｌ１．Ｌｅｆｔ＝Ｔｈｉｓｆｏｒｍ．Ｌａｂｅｌ１．Ｌｅｆｔ－５　Ｅｎｄｉｆ　●将Ｆｏｒｍ］的Ａｃｔｉｖｅ　Ｅｖｅｎｔ定义为：　Ｔｈｉｓｆｏｒｍ．ＬａｂｅＩ１．Ｌｅｆｔ＝Ｔｈｉｓｆｏｒｍ．Ｗｉｄｔｈ＋０．５　５结束语　从以上几种方法中还可以演变出其他的动画效果，例如，文　字从左上角展开、从左侧飞入、从右下角飞入等等，读者不防自　己动手试试。　团