利用VB实现图片切换动画中溶解效果.pdf

第12卷第2期 鹭江职业大学学报 V01．12No．2 of Jun．2004 2004年6月 Joumal Universit)r Lujiang 利用VB实现图片切换动画中的溶解效果 杨连峰 (鹭江职业大学经济系，福建厦门361005) [摘要]更动感的程序界面，更强烈的视觉冲击始终是程序开发人员在进行应用程序开发时的不懈 追求．通过构造随机覆盖模板和使用WiIl32API中的BitBlt函数及VB中的时钟控件，以实现切换动画中的 溶解效果，从而为使用VB进行程序开发时创建动画界面进行了一次初步的尝试． [关键词】溶解；模板；动画；VB [中图分类号]TP301．6[文献标识码]B[文章编号】1008—3804(2004)02—0071一05 近年来人们广泛地使用幻灯片进行广告宣传和多媒体教学，给幻灯片中的文本和图片添加各种动 避效果，使幻灯片在放映时给观赏者强烈的视觉享受正是这种应用的魅力所在．现已有某些应用软 单的实现方法，使得PowedPoint成为眼下进行文字与图片展示的最佳选择． B鹪ic 为了在应用程序中实现图片或文字动画的效果，笔者以Visual6．0企业版为工具，首先探 索了溶解动画实现的原理，然后巧妙地使用VB的时钟控件数组和API函数BitBl￡，得到了比较理想 的结果． 1 溶解效果的实现原理 溶解效果这种动画特技的实现是：将要展示的图片分解成许多小方块，然后这些小方块随机地出 现并覆盖原有图片的相应部分，最终使要展示的图片完全覆盖原有的图片． 为了达到随机出现的目的，我们使用了VB中的随机函数RND()来产生一对序数，这一对序 数决定在某一时刻出现小方块的位置．为了使整个效果不至于象天女散花——稀稀落落，控制随机出 现的速度将是至关重要的．经过反复的实验表明，单纯靠随机函数在整个过程中实现覆盖不能达到溶 解的效果，因为后面产生的随机序对会大量地与此前产生的序对重复，导致后期覆盖的速度很慢，甚 至最后二、三个小方块在很长时间内都无法被覆盖．为此我们引进了覆盖模板的概念即预先使用随机 函数产生一个随机序对矩阵，然后要实现覆盖时读取覆盖模板，由模板中的序对决定在某一时刻何位 置上的一个小方块，以此达到随机出现的目的．由于模板中的序对是事先产生好的，并且没有重复， 因此随机出现的速度可控并能完整覆盖原有图片．当然我们的模板大小是固定的(10×10)，为此我 们需要将图片在划分好小块后，将这些连续的块按模板的大小分成若干个区，每个区由一个时钟控件 来驱动覆盖．为了控制溶解的速度我们还设置了一个循环以此来控制在一个时钟事件中一次出现的几 个小方块． 2覆盖模板的生成 从溶解效果的实现原理中，可以看出覆盖模板对于整个动画特技的实现至关重要．我们选择的模 【收稿日期]2004—02—10[修回日期]2004—04—16 [作者简介]杨连峰(1968一)，男，福建宁德人，助理研究员，从事电子商务技术和经济的教学与研究． 万方数据 ·72· 鹭江职业大学学报 2004年 板大小是lO×10．之所以选择10×10，是因为由此产生的序对只要两位数字就能完整表达，这样不 仅便于后续的覆盖处理，而且能较好地实现随机的效果． 实现的程序如下：由两部分组成，时钟事件自动生成随机序对并其将置入数组strA中，数组A 命令按钮单击事件将数组strA中的数据写入模板文件ModelText中． Dim 8trA(9，9)Asstring·2 Dim A