自定义VFP主窗口背景图片填充方式

*-------------------------声明-------------------------Start*
*描述：自定义VFP主窗口背景图片填充方式
*版本：V1.0.0
*作者：狂龙娇子(QQ：403108320)
*日期：2010-03-30
*-------------------------声明-------------------------End*

*以下用户自行添加代码，对程序进行初始化

*-----创建自定义Form类，作为主窗口的背景-----Start*
oScreenForm = Createobject("oScreenForm")
With oScreenForm
.AddObject("Image_Background", "Image")

With .Image_Background
.Visible = .T.
.Width = oScreenForm.Width
.Height = oScreenForm.Height
.Stretch = 2 &&图像填充方式：0--剪裁（默认值）、1--等比填充、2--变比填充
.Picture = "C:/Documents and Settings/All Users/Documents/My Pictures/示例图片/Sunset.jpg" &&图像文件所在路径
Endwith

.Show &&显示自定义Form类窗口
Endwith
Read events &&启用事件循环
*-----创建自定义Form类，作为主窗口的背景-----End*

*-----自定义Form类，初始化其成员变量、成员事件-----Start*
Define Class oScreenForm as Form
WindowState = 2 &&创建Form窗口时最大化
BorderStyle = 0 &&边框类型：0-无边框、1-单线边框、2-固定对话框、3-可调边框
Closable = .F. &&能否关闭窗口：.T.--允许、.F.--禁止
TitleBar = 0 &&取值：0--关闭、1--打开（默认值）

*定义类的Resize事件（窗口调整大小时发生的事件）
Procedure Resize
With oScreenForm
.Image_Background.Width = .Width
.Image_Background.Height = .Height
Endwith

Enddefine
*-----自定义Form类，初始化其成员变量、成员事件-----End*