CLEAR
CLOSE ALL
tp11=RAND(-1)
tp12=ROUND(tp11*70,0)
tp13=ALLTRIM(STR(tp12))+".jpg"
IF VarType(_Screen.Image1) != "O"
_screen.AddObject('Image1','Image')
ENDIF
_screen.Image1.width = _screen.width
_screen.Image1.height = _screen.height
_screen.Image1.stretch = 2
_screen.Image1.anchor = 15
_screen.Image1.picture='&tp13'
通过上段代码已解决问题,谢谢各位