-
vfp教程之让三维动画在VFP表单中动起来
首先,请将作出的动画(背景为白色)以BMP图象格式逐帧存放在所建项目的子目录下,
本例为title1.bmp,title2.bmp,......,title25.bmp.
然后,在表单里增加一个图象类对象,名为Image1,将BackStyle属性改为"透明";并在
其Picture属性中填入第一帧图象的文件名,本例为title1.bmp.
接着,在增加一个计时器对象,在其Interval属性中填入100(每秒10帧,改动该值可
控制动画显示速度),并在Timer Event事件中填入如下代码:
a=Thisform.Image1.Picture
s=5 's为图象文件名前缀的英文字符个数,本例为5
zs=25 'zs为图象的帧数,本例为25帧
b=subst(a,Rat('',a)+1+s)
n=Val(b)
n=Iif(n=zs,1,n+1)
Thisform.Image1.Picture=strtran(a,b,alt(str(n)+'.bmp')
最后,按下"运行"按钮,图象动起来了.
记住把所有bmp文件添加到项目管理器的"其他文件"里,这样在编译成exe文件时,VFP
会将所有BMP文件数据嵌入exe文件中并自动调用,运行时只需拷一个exe文件即可.
本例为title1.bmp,title2.bmp,......,title25.bmp.
然后,在表单里增加一个图象类对象,名为Image1,将BackStyle属性改为"透明";并在
其Picture属性中填入第一帧图象的文件名,本例为title1.bmp.
接着,在增加一个计时器对象,在其Interval属性中填入100(每秒10帧,改动该值可
控制动画显示速度),并在Timer Event事件中填入如下代码:
a=Thisform.Image1.Picture
s=5 's为图象文件名前缀的英文字符个数,本例为5
zs=25 'zs为图象的帧数,本例为25帧
b=subst(a,Rat('',a)+1+s)
n=Val(b)
n=Iif(n=zs,1,n+1)
Thisform.Image1.Picture=strtran(a,b,alt(str(n)+'.bmp')
最后,按下"运行"按钮,图象动起来了.
记住把所有bmp文件添加到项目管理器的"其他文件"里,这样在编译成exe文件时,VFP
会将所有BMP文件数据嵌入exe文件中并自动调用,运行时只需拷一个exe文件即可.
最新更新
显示/隐藏Excel网格线
用NPOI操作EXCEL--锁定列
组合行、列
用NPOI操作EXCEL--设置密码
用NPOI操作EXCEL--调整表单显示比例
打印相关设置
用NPOI操作EXCEL--插入图片
用NPOI操作EXCEL--画Grid
用NPOI操作EXCEL--画圆形
用NPOI操作EXCEL--画矩形
MySql索引原理与使用大全
Mysql命令大全(完整版)
Mysql常用命令行大全
mysql 索引类型以及创建
mysql命令详解
mysql的下载和命令行简单操作
mysql常用管理命令
MySQL命令大全
mysql命令行登录容易出现的错误
解决mysql的cmd命令错误及2003连接错误
数据类型之对象
数据类型之布尔型、整型、浮点型和字符
php教程之数据类型之数组
php教程之PHP 常量
php教程之变量
php教程之语法
PHP简介与安装
phpMyAdmin配置安装全攻略
PHP是什么
win2003 iis整合php后 环境变量无法读取到