-
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文件即可.
最新更新
nodejs爬虫
Python正则表达式完全指南
爬取豆瓣Top250图书数据
shp 地图文件批量添加字段
爬虫小试牛刀(爬取学校通知公告)
【python基础】函数-初识函数
【python基础】函数-返回值
HTTP请求:requests模块基础使用必知必会
Python初学者友好丨详解参数传递类型
如何有效管理爬虫流量?
SQL SERVER中递归
2个场景实例讲解GaussDB(DWS)基表统计信息估
常用的 SQL Server 关键字及其含义
动手分析SQL Server中的事务中使用的锁
openGauss内核分析:SQL by pass & 经典执行
一招教你如何高效批量导入与更新数据
天天写SQL,这些神奇的特性你知道吗?
openGauss内核分析:执行计划生成
[IM002]Navicat ODBC驱动器管理器 未发现数据
初入Sql Server 之 存储过程的简单使用
这是目前我见过最好的跨域解决方案!
减少回流与重绘
减少回流与重绘
如何使用KrpanoToolJS在浏览器切图
performance.now() 与 Date.now() 对比
一款纯 JS 实现的轻量化图片编辑器
关于开发 VS Code 插件遇到的 workbench.scm.
前端设计模式——观察者模式
前端设计模式——中介者模式
创建型-原型模式