怎样根据不同电脑分辩率自动调整

網上下的,參考一下~~~~~

将以下复制到写字板。然后以srf扩展名保存。导入pbl
$PBExportHeader$f_windowscreen.srf
$PBExportComments$根据不同分辨率改变窗口和控件大小，以及字体大小。参数：窗口名，开发环境分辨率。如：f_windowscreen(this,1024,768)
global type f_windowscreen from function_object
end type
forward prototypes
global function integer f_windowscreen (readonly window arwin, integer arx, integer ary)
end prototypes
global function integer f_windowscreen (readonly window arwin, integer arx, integer ary);environment env
int ii_Screenwidth,ii_Screenheight
double WRadio,HRadio,Radio
int ii_WinBolderwidth,ii_WinBolderheight
getenvironment(env)
ii_WinBolderwidth=arwin.width - arwin.workspacewidth()//取得窗体边框的宽度
ii_WinBolderheight=arwin.height - arwin.workspaceheight()
ii_Screenwidth=env.screenwidth
ii_Screenheight=env.screenheight
//************************************************************************//
//获取需要调整的计算机分辨率**********************************************//
WRadio=ii_Screenwidth/arx //标准认为屏幕分辨率为arx*ary
HRadio=ii_Screenheight/ary//计算出屏幕相对arx*ary分辨率的变化
Radio=min(WRadio,HRadio)
if Radio=1.0 then //如果分辨率是arx*ary
return 0
end if
if (arwin.WindowType=MDIHelp!) or (arwin.WindowType=MDI!) then
arwin.resize(arwin.workspacewidth()*Radio,arwin.workspaceheight()*Radio)
return 0
else
arwin.hide()
arwin.width=(arwin.width - ii_WinBolderwidth)*Radio + ii_WinBolderwidth
arwin.height=(arwin.height - ii_WinBolderheight)*Radio + ii_WinBolderheight
int i
dragobject temp//用于取各种控件
windowobject song[]
song[]=arwin.control[]
for i=1 to upperbound(song)
temp=arwin.control[i]//调整控件大小和位置
temp.width=temp.width*Radio
temp.x=temp.x*Radio
temp.height=temp.height*Radio
temp.y=temp.y*Radio
choose case typeof(temp)
case tab!
tab mtab
mtab=temp
mtab.textsize=mtab.textsize*Radio//设置字体大小
case commandbutton!
commandbutton cb
cb=temp
cb.textsize=cb.textsize*Radio
case singlelineedit!
singlelineedit sle
sle=temp
sle.textsize=sle.textsize*Radio
case editmask!
editmask em
em=temp
em.textsize=em.textsize*Radio
case statictext!
statictext st
st=temp
st.textsize=st.textsize*Radio
case datawindow!//get datawindow zoomen
datawindow dw
dw=temp
dw.object.datawindow.zoon=string(int(Radio*100))//注意datawindow和其他控件的不同。
case picturebutton!
picturebutton pb
pb=temp
pb.textsize=pb.textsize*Radio
case checkbox!
checkbox cbx
cbx=temp
cbx.textsize=cbx.textsize*Radio
case dropdownlistbox!
dropdownlistbox ddlb
ddlb=temp
ddlb.textsize=ddlb.textsize*Radio
case groupbox!
groupbox gb
gb=temp
gb.textsize=gb.textsize*Radio
case listbox!
listbox lb
lb=temp
lb.textsize=lb.textsize*Radio
case multilineedit!
multilineedit mle
mle=temp
mle.textsize=mle.textsize*Radio
case radiobutton!
radiobutton rb
rb=temp
rb.textsize=rb.textsize*Radio
end choose
next
arwin.show()
return 0
end if
end function