方法一:直接在表单的PITCURE属性中设置图片
方法二:在表单上添加一个图像控件,在图像控件的PITCURE属性中设置图片
public SYSDESKTOPSIZE SYSDESKTOPSIZE=SROWS()+SCOLS() _SCREEN.ADDOBJECT("IMAGE1","IMAGE") &&在桌面上创建image1用于显示图片 _SCREEN.ADDOBJECT("TIMER1","TIMER1") &&在桌面上创建timer1用于控制图片大小 _SCREEN.IMAGE1.TOP = -4 _SCREEN.IMAGE1.LEFT = -4 _SCREEN.IMAGE1.HEIGHT = _Screen.Height + 4 _SCREEN.IMAGE1.WIDTH = _Screen.Width + 4 _SCREEN.IMAGE1.STRETCH = 2 _SCREEN.IMAGE1.PICTURE='030.jpg' _SCREEN.IMAGE1.VISIBLE=.T. _SCREEN.TIMER1.ENABLED=.T. _SCREEN.TIMER1.INTERVAL=1000 DEFINE CLASS TIMER1 AS TIMER LEFT=10 TOP=10 PROCEDURE TIMER _SCREEN.IMAGE1.TOP = -4 _SCREEN.IMAGE1.LEFT = -4 _SCREEN.IMAGE1.HEIGHT =_SCREEN.HEIGHT + 4 _SCREEN.IMAGE1.WIDTH = _SCREEN.WIDTH + 4 IF SYSDESKTOPSIZE#SROWS()+SCOLS() SYSDESKTOPSIZE=SROWS()+SCOLS() ENDIF ENDDEFINE