创建一个基于Custom的类resizeable,并新建属性和方法程序,其说明如下:
a) 新建属性:
posiTyperList 可调整位置的控件类型列表
sizeTypeList 可调整大小的控件类型列表
acontrolStats[1,4]存放Form初始状态下所有控件的大小
initformHeight Form的初始高度
initformWidth Form的初始宽度
initResize 初次调整否
b) 新建方法程序:
procontrols 处理Form中所有控件位置和大小
savecontrols 保存Form中所有控件的大小和比例
setposition 重新设置控件位置
setsize 重新设置控件大小
具体实现的程序代码清单如下:
Procedure procontrols &&处理Form中所有控件位置和大小
IF This.InitResize &&是初次调整
This.InitResize=.F. &&设为非初次调整
ENDIF
Thisform.LockScreen=.T. &&禁止屏幕刷新
nPos=0 &&控件计数器
FOR m.i=1 TO Thisform.ControlCount &&遍历所有控件
oControl=Thisform.Controls[m.i]
nPos=nPos+1
If This.InitResize &&初次调整
This.Savecontrols(oControl) &&保存原Form中所有控件的大小比例
ENDIF
IF oControl.Class$This.posiTypeList &&控件是否为用户指定类型
This.SetPosition(oControl,nPos) &&设置控件位置
ENDIF
IF oControl.Class$This.SizeTypeList &&控件是否为用户指定类型
This.SetSize(oControl,nPos) &&设置控件大小
ENDIF
ENDFOR
Thisform.LockScreen=.F. &&允许屏幕刷新
Procedure savecontrols &&保存Form初始状态下所有控件的大小比例
Para oControl
nLen=ALEN(This.aControlStats,1)
This.aControlStats[nLen,1]=oControl.Height/This.InitFormHeight
This.aControlStats[nLen,2]=oControl.Width/This.InitFormWidth
This.aControlStats[nLen,3]=oControl.Top/This.InitlFormHeight
This.aControlStats[nLen,4]=oControl.Left/This.InitFormWidth
DIMENSION This.aControlStats[nLen+1,4]
Procedure setposition &&重新设置控件位置
Para oControl,nPos
oControl.Top=Thisform.Height*This.aControlStats[nPos,3]
oControl.Left=Thisform.Width*This.aControlStats[nPos,4]
Procedure setsize &&重新设置控件大小
Para oControl,nPos
oControl.Width=Thisform.Width*This.aControlStats[nPos,2]
IF !oControl.Baseclass $ "Textbox Spinner"
oControl.Height=Thisform.Height * This.aControlStats[nPos,1]
ENDIF
Procedure Init &&初始化
This.InitFormHeight=Thisform.Height
This.InitFormWidth=Thisform.Width
InitResize=.T.
2 实际应用
将resizeable类应用到Form中,需完成以下工作:
(1) Form中添加resizeable类对象,且向其Resize Event添加代码:
This.Resizable1.procontrols
(2) Form中resizeable1对象的posiTypeList和sizeTypeList分别输入属性值。posiTypeList指定了允许调整位置的控件类型,例如:
Commandbutton Combobox Checkbox Listbox Grid Textbox Label Shape Editbox Spinner
同样,sizeTypeList由用户指定允许调整大小的控件类型。posiTypeList值和sizeTypeList值可以不一致。
在Form运行状态下,当点击Form的最大/恢复按钮或拖动Form边框时,Form中所有控件会随窗口的变化自动改变大小。
与调整尺寸有关的Form属性有: ZoomBox 、Minheight、 MinWidth、MaxHeight 、MaxLeft 、MaxTop 、MaxWidth。若允许用户调整Form 尺寸必须设置 Form.ZoomBox=.F.。
用户可根据Form的页面布局,选定Form的高度和宽度的最值。
所设计的resizable类有以下特点:通用性强,适用于任何Form,程序不需作变动;封装性好,易于使用和维护;留有接口,允许用户*选择调整位置和大小的控件类型。