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

*-------------------------声明-------------------------Start*
*描述：自定义VFP主窗口背景图片填充方式
*版本：V1.0.0
*作者：狂龙骄子
*日期：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*