Applications

Development Platform:

VFP

BKCOLOR.PRG：Code Content

							*********************************************************
*
* Name: BkColor
*       此程序演示设置不同的背景色
*
**********************************************************
set talk off
set esca off
set path to ..
do LoadSDK           && 装入SDK
set color to w/n
clea
for i=0 to 63
   =SetBkColor(i)
   @0,0 say "当前背景色为: "
   ?? ltri(str(i))
   if inke(2)=27
      exit
   endi
endf
=SetBkColor(0)
retu

						