行业应用

开发平台：

VFP

BMPSHOW.PRG：源码内容

							*********************************************************
*
* Name: BmpShow
*       此程序演示图像无级缩放
*
**********************************************************
set talk off
set esca off
set path to ..
do LoadSDK                    && 装入SDK
if !SetDmode(10)
   do _Info in MisTool with;
      "无法进入640*480*256色模式",;
      "只能在16色模式下抖动显示256色图像"
endi    
=AutoSize(.t.)
set colo to w/n
set curs off
for i=0 to 150 step 5
   =ShowBmpin(200-i,200-i,250+i,250+i,"256_1.bmp")
endf
wait ''
=Cls()
for i=50 to 400 step 10
   =ShowBmpin(0,0,i,i,"256_1.bmp")
endf
wait ''
=Cls()
for i=50 to 400 step 10
   =ShowBmpin(0,0,i,400,"256_1.bmp")
endf
wait ''
set curs on
retu

						