表单如何自动适应分辨率?

[pwlxj]

如题
怎么样才能让表单自动适应电脑的分辨率?

[十豆三]

表单的INIT事件：

This.Width =SYSMETRIC(1) &&设置表单宽度等于屏幕宽度
This.Height=SYSMETRIC(2) &&设置表单宽度等于屏幕高度

[dfwxj]

算一个比例，重新设置所有控件的尺寸和位置

[pwlxj]

太感谢了

[stuprg]

local oleheight,olewidth,changeheight,changewidth
oleheight=1024
olewidth=768
changeheight=0
changewidth=0
if SYSMETRIC(1)=oleheight
thisform.lockscreen=.t.
changeheight=SYSMETRIC(1)/oleheight
changewidth=SYSMETRIC(2)/olewidth
if thisform.baseclass="form"
this.height=SYSMETRIC(1)&&this.height*changeheight
this.width=SYSMETRIC(2)&&this.width*changewidth
&&this.top=this.top*changeheight
&&this.left=this.left*changewidth
endif
for i=1 TO this.controlcount
with this.controls(i)
.height=this.height*changeheight
.width=this.width*changewidth
.top=this.top*changeheight
.left=this.left*changewidth
ENDWITH
endfor
thisform.lockscreen=.f.
ENDIF
thisform.Refresh

[pwlxj]

感谢感谢！
这个帖子这么长时间了，还有人回复我真是打心眼里感谢　csdn