行业应用

开发平台：

VFP

IMAGE1.PRG：源码内容

							**********************************************************
*
* Name: ImageDemo
*       此程序演示用SDK函数来做一个简单动画，演示一个图符从左到右移动
*
**********************************************************
set path to ..
set talk off
set esca off
set curs off
do LoadSDK                    && 装入SDK
=RefreshScr()                 && 强制屏幕刷新
=SetFillStyle(1,0)            && 设置填充模式
=DrawBar(0,0,639,449)         && 清除屏幕
=SetPutMode(_XOR)               && 设置XOR作图方式
=ShowICO(0,200,"Help.ICO")      && 显示图符
Img=GetImage(0,200,31,200+31)   && 保存Img
=PutImage(0,200,Img)            && 在XOR方式下重画Img（擦除Img）
i=0
do whil last()!=27
   =PutImage(i,200,Img)         && 显示Img
   =inke(0.000000001)           && 延时
   =PutImage(i,200,Img)         && 在XOR方式下重画Img（擦除Img）
   i=iif(i+7>600,0,i+7)
endd
=ReleImage(Img)
=SetPutMode(_COPY)
retu

						