VFP中关于屏幕背景图片设置的求助

[baojianwen]

“主程序.prg”中部分代码如下：
_SCREEN.picture="901537.jpg" && 屏幕中加入背景图片
zoom window screen max && 主窗口最大化

问题请教：主窗口最大化后，设置的背景图片就如xp系统的桌面背景设置成“平铺”时的效果一样，很不美观。那么，如何才能使其中的背景图片达到xp系统桌面背景设置中的“拉伸”效果（即变比填充）呢？
（我指的是如何利用顶层表单技术以外的方法实现）

[都市夜猫]

Screen.Picture 没有伸缩属性可设置，只能在 Screen 上加一个 image 控件来显示图片：

_Screen.AddObject('background', 'Image')
_Screen.background.Picture = Getpic() && 或者写你自己的图片文件名
_Screen.background.Visible = .T.
_Screen.background.Stretch = 2 && 不想变形就设为 1
_Screen.background.Move(0,0,_Screen.Width,_Screen.Height)

[lygcw9602]

要准备几张不同分辨率的图片，根据分辨率的不同设置不同的图片。

[lygcw9602]

从网上找了段代码，感觉还不错

_screen.AddObject('Image1','Image')
_screen.Image1.width = _screen.width
_screen.Image1.height = _screen.height
_screen.Image1.visible = .t.
_screen.Image1.stretch = 2
_screen.Image1.picture=SYS(5)+SYS(2003)+'\bjtu2.jpg'

[baojianwen]

感谢大家，又学到了一招。

[敦厚的曹操]

1、在表单设置里，把图片先设置成与表单大小。
2、把图片的Anchor属性设置成：15
这样，图片就能自动随表单变化了。