行业应用

开发平台：

VFP

MODE.PRG：源码内容

							*********************************************************
*
* Name: ModeTest
*       此程序演示FoxPro在各类显示模式下的状况
*
**********************************************************
set path to ..
set esca off
set talk off
do LoadSDK                    && 装入SDK
clea
if SetDMode(8)                && 设置显示模式8
   ? "现已进入800*600*16色模式!"
else
   ? "不能进入800*600*16色模式!"
endi
wait
clea
if SetDMode(9)                && 设置显示模式9
   ? "现已进入1024*768*16色模式!"
else
   ? "不能进入1024*768*16色模式!"
endi
wait
clea
if SetDMode(10)                && 设置显示模式10
   ? "现已进入640*480*256色模式!"
else
   ? "不能进入640*480*16色模式!"
endi
wait
clea
if SetDMode(11)                && 设置显示模式11
   ? "现已进入800*600*256色模式!"
else
   ? "不能进入800*600*256色模式!"
endi
wait
clea
if SetDMode(12)                && 设置显示模式12
   ? "现已进入1024*768*256色模式!"
else
   ? "不能进入1024*768*256色模式!"
endi
wait
clea
? "现已返回640*480*16色模式!"
=SetDMode(3)                && 恢复缺省显示模式3
retu

						