主题：求助：字段布局按窗口大小按比例调整宽度

因为各屏幕分辨不同，窗体设计中的字段能否在窗口放大时自动按比例来调整宽度。

比如设计时的窗口是如下：

此主题相关图片如下：1.png

然后，按窗口最大化时，需要变成以下的效果：

此主题相关图片如下：2.png

下面是示例，请老师帮忙，谢谢！

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

点击浏览该文件:字段布局按窗品比例自动调整宽度.table

能帮忙做下示例不，想了半天，不知从何着手，谢谢！

自己测了一下，只想到这种办法了，放了四个面板，分别把四个字段放到这四个面板里，然后在窗口大小改变事件中设了以下代码：

Dim A As WinForm.Panel = e.Form.Controls("Panel2")
Dim b As WinForm.Panel = e.Form.Controls("Panel1")
Dim C As WinForm.Panel = e.Form.Controls("Panel4")
Dim D As WinForm.Panel = e.Form.Controls("Panel5")

b.SetBounds(10,30,300,80)
A.SetBounds(320,30,300,80)
C.SetBounds(630,30,300,80)
D.SetBounds(940,30,300,80)

效果似乎是达到了，但还是不完美，如果窗口小于1000，后面这个面板就会被盖住。要是这四个面板的左右位置能自动按窗口的大小，按设定好的比例来自动计算停靠位置，就好了。

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

点击浏览该文件:字段布局按窗品比例自动调整宽度.table

mark 自适应

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