以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何让窗口和控件能随着屏幕分辨率的不同而自动缩放？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75158)
--  作者：ehomecd
--  发布时间：2015/9/29 8:35:00
--  [求助]如何让窗口和控件能随着屏幕分辨率的不同而自动缩放？
[求助]如何让窗口和控件能随着屏幕分辨率的不同而自动缩放？
--  作者：Hyphen
--  发布时间：2015/9/29 8:48:00
--  

屏幕分辨率参考http://www.foxtable.com/help/topics/0348.htm

窗口的大小根据分辨率进行调整即可。

至于控件也跟着缩放就没多大意义了。建议做成几块区域，根据分辨率适当进行隐藏。
--  作者：大红袍
--  发布时间：2015/9/29 9:13:00
--  

Afterload事件

 

vars("width") = e.Form.width
vars("height") = e.Form.height

 

SizeChanged事件

 

For Each c As Winform.Control In e.Form.Controls
    c.Left = c.Left * (e.Form.Width / vars("width"))
    c.Top = c.Top * (e.Form.Height / vars("height"))
    c.Width = c.Width * (e.Form.Width / vars("width"))
    c.Height = c.Height * (e.Form.Height / vars("height"))
Next
msgbox(e.Form.Height / vars("height"))
vars("width") = e.Form.width
vars("height") = e.Form.height
--  作者：ehomecd
--  发布时间：2015/9/29 9:34:00
--  
这样调整后，控件内的字体如何也跟着缩放？
--  作者：大红袍
--  发布时间：2015/9/29 9:35:00
--  

这个做不到的。