face.prg

来自「本工资管理系统是一个运行于Windows 95/98 的基于图形用户界面的通用工」· PRG 代码 · 共 22 行

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: FACE.PRG 
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 WITH _SCREEN  
 .WINDOWSTATE = 2
  .ADDOBJECT('image1','Image')
 .IMAGE1.TOP = 84
 .IMAGE1.LEFT = 84
 .IMAGE1.WIDTH = 591
 .IMAGE1.HEIGHT = 351
 .IMAGE1.PICTURE = 'face.gif'
 .IMAGE1.VISIBLE = .T.
 ENDWITH 
 _SCREEN.LOCKSCREEN = .F.
 _SCREEN.FONTNAME = 'arial'
 _SCREEN.FONTSIZE = 10
 _SCREEN.FORECOLOR = RGB(0,0,0)
 RETURN 
*