以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=69830)
--  作者：JoyGum
--  发布时间：2015/6/11 15:07:00
--  [求助]
窗口可以隨電腦螢幕大小調整，但窗口裡的控件如何也可以隨電腦螢幕大小比例調整。個人試過錨定，但還是不能按螢幕大小比例調整。請教老師們如何解決？謝謝！
--  作者：大红袍
--  发布时间：2015/6/11 15:08:00
--  
 控件，是必须固定大小的，而且有的控件，是调整不了高度的，所以不行。
--  作者：大红袍
--  发布时间：2015/6/11 15:09: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
--  作者：JoyGum
--  发布时间：2015/6/11 15:14:00
--  
感恩啊！謝謝大紅袍老師指教。