方法一:直接在表单的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