在VFP6.0中为表单增加声音和图片动画效果.pdfVIP

第27卷 第4期 集宁师专学报 7 No.4 2005 年12 月 Journal of Jining Teachers College Dec..2005 文章编号 1009-7171(2005)04-0052-02 在VFP6.0 中为表单增加声音和图片动画效果 1 2 马晨 辉 , 冯 荣 (1.乌兰察布市教育局 内蒙古集宁 012000; 2.集宁师专 计算机系 内蒙古集宁 012000) 摘 要 利用VFP 编制的应用程序实用但不象其它应用程序一样有一个比较好的动态的界面 通过编程的手段可以实现动画效果并加上音效 关键词 计时器 timer 事件 图像 声音 中图分类号 TP312 文献标识码 A 利用 VFP6.0 我们可以编制应用程序 我 将图片的width 属性设为0 建立并设好计时器控 们希望自己的应用程序有一个动态的的漂亮 件 在计时器的timer 事件中写上代码: 封面 但是 VFP 不是做动画的软件,那么如何 sw=320 s=12 通过编程的手段来实现动画效果呢?我们可以 if thisform.imagesl.widthsw then 巧秒利用VFP 的计时器实现 thisform.timel.enabled=.f. Visual FoxPro 中的计时器的控件能按一定 eles thisform.imagel.width=thisform.imagel.width+s 的时间间隔规则地执行计时器的Timer 事件代 thisform.imagel.left=thisform.imagel.left-s 码 计时器的 Interval 属性用来指定计时器控 endif 制的 Timer 事件之间的时间间隔毫秒数 因 这里 变量sw 的值等于图片的原始宽度 同 为时间精度的原因如果每隔一秒触发计时器 理 上侧切入的效果只需将上述代码中的 width 的Timer 事件一般将这个属性值设为500(时间 改为height 将left 改为top 并将图片的height 间隔的一半 1000 毫秒/2) 在 Timer 事件中 属性设为0 即可 加上有条件地改变某个控件的Height Width 3. 伸展 伸展和切入的效果的区别在于:伸展过 Top Left Visible 等等属性的代码 就能让这 程中,整幅图片都能看见,不过是变了形的;而切入的 个控件按我们的要求动起来 过程中 只能看见图片的一部分 伸展与切入的实 具体各种效果的实现方法 现也几乎完全相同 唯一的改动是将图片的stretch 1.移入或飞入:编程改变控件的Top 或Left 属 属性设为2(等比填充) 其它方向的伸展同理 性即可 例如 在名为 Form1 的表单里 已经建 4. 闪烁 这个效果很容易实现 建立计时 立了一个名为 Image1 的图象控制 此控件的 器 根据你所需要的闪烁速度设好它的Interval Picture 属性已设好 想让这幅图片从底部缓慢移入 属性 一般可设成500 在计时器的timer 事件 屏幕 首先 将Image1 的Top 属性设为480(根据 中写上如下代码 if thisform. Image1.visible=.f. then 你屏幕设置)