怎样控制Foxpro 程序主窗口屏幕显示

VFP6.0中

没有Anchor属性，也没有Bindevent函数，因此需要使用类定义中的_Parent.Resize来实现锚定：

Define Class BackImage As Image

Stretch = 2

Procedure Parent.Resize

This.Move(0 ,0 ,This.Parent.Width ,This.Parent.Height)

EndProc

EndDefine

然后使用下列代码添加到_Screen中：

_Screen.AddObject('BackImage' ,'BackImage')

With _Screen.BackImage

.Picture = m.cPicture

.Move(0 ,0 ,_Screen.Width ,_Screen.Height)

.Visible = .T.

EndWith

VFP7.0及以后版本中

在_Screen中添加一个Image控件作为背景，设置Stretch属性为变比填充，并调整它的大小与位置使它填满整个屏幕，然后设置锚定值为15。代码如下：

If !PemStatus(_Screen ,'BackImage' ,5) Then

_Screen.AddObject('BackImage' ,'Image')

EndIf

With _Screen.BackImage

.Stretch = 2

.Picture = m.cPicture

.Move(0 ,0 ,_Screen.Width ,_Screen.Height)

.Anchor = 15

.Visible = .T.

EndWith