以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  主窗口  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=75601)
--  作者：kaituozhe
--  发布时间：2015/10/11 9:31:00
--  主窗口

主窗口怎么能随电脑屏幕的大小自动变，而窗口控件大小与位置随电脑屏幕大小同比例变化
--  作者：大红袍
--  发布时间：2015/10/11 9:52:00
--  

 

1、容器的停靠和锚定属性设置正确，就能大致自动变化；

 

2、

 

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