BKCOLOR.PRG
上传用户:abc1382430
上传日期:2013-01-31
资源大小:1233k
文件大小:0k
源码类别:

行业应用

开发平台:

VFP

  1. *********************************************************
  2. *
  3. * Name: BkColor
  4. *       此程序演示设置不同的背景色
  5. *
  6. **********************************************************
  7. set talk off
  8. set esca off
  9. set path to ..
  10. do LoadSDK           && 装入SDK
  11. set color to w/n
  12. clea
  13. for i=0 to 63
  14.    =SetBkColor(i)
  15.    @0,0 say "当前背景色为: "
  16.    ?? ltri(str(i))
  17.    if inke(2)=27
  18.       exit
  19.    endi
  20. endf
  21. =SetBkColor(0)
  22. retu