代码中红色部分看不懂,求解释!
Local lnHeight, lnWidth, lnHeightdiff, lnWidthdifflnHeight=768 &&这是开发环境下的分辨率
lnWidth=1366
lnHeightdiff=0
lnWidthdiff=0
IF SYSMETRIC(2)<>lnHeight OR SYSMETRIC(1)<>lnwidth && 如果目前不是运行于1366*768 分辩率下
lnHeightdiff=SYSMETRIC(2)/lnHeight
lnWidthdiff=SYSMETRIC(1)/lnWidth
THIS.Height=THIS.height*lnHeightdiff
THIS.Width=THIS.Width*lnWidthdiff
THIS.Top=THIS.Top*lnHeightdiff
THIS.Left=THIS.Left*lnHeightDiff
FOR i = 1 to THIS.ControlCount
WITH THIS.controls(i)
.Height=.Height*lnHeightdiff
.Width=.Width*lnWidthdiff
.Top=.Top*lnHeightdiff
.Left=.Left*lnWidthdiff
IF TYPE(".FontSize") # "U" && 这个 IF 确保控件拥有 FontSize 属性
.FontSize=.Fontsize*((.5*lnWidthdiff)+(.5*lnHeightdiff))
ENDIF
ENDWITH
ENDFOR
ENDIF
[此贴子已经被作者于2015-12-22 09:46编辑过]