主题：控件自动变化大小

善用锚定和停靠。

 

自适应

 

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

窗口事件

 

不行

不行，无法改变。

参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=78838&skin=0

 

 

没有解决的方法啊，自适应就是这样的。

 

你可以建议人家使用你设计的窗口大小啊。

那你就分块来做，比如 从上到下，每部分控件都放在一个panel里面，然后panel设置好其停靠的方式，然后panel里面，再设置控件的锚定和停靠

 

 

简单改了一下，参考，自己完善

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目7.foxdb

22楼的代码不是自动缩放了么？效果就是那样了啊。代码写在按钮里了。

 

---------------------别人基本上这样布局：把一些控件放在panel里，向上停靠；再弄一个panel，向左停靠；再弄一个panel，停靠设置成fill，然后往里面装控件；重复以上步骤。