主题：窗口根据屏幕大小自动缩放

我想请问一下，我在大显示屏设计出来的窗体，在用小显示屏的电脑上打开，结果窗体的有些部分被遮住了，可不可以让它根据比例自动缩放大小呢？

  下面的是通用的缩放代码。放到afterload中

For Each c As Winform.Control In e.Form.Controls
    c.Left = c.Left * (SysInfo.ScreenWidth / e.Form.Width)
    c.Top = c.Top * (SysInfo.ScreenHeight / e.Form.Height)
    c.Width = c.Width * (SysInfo.ScreenWidth / e.Form.Width)
    c.Height = c.Height * (SysInfo.ScreenHeight / e.Form.Height)
Next

我试了好几次，还是不太行，我试了用锚定和停靠，但是窗口还是看不全。

我也遇到这样的烦恼。

在标准的分辨率下设计好窗口，调整好位置，善用锚定和停靠。

你office 和 foxtable，在任何分辨率下都可以正常使用

有时候一个控件会盖住另外一个控件的。

 

举例说明？

如果有，也是锚定没有设置好，可以随时修正。

 把项目弄上来，窗口就行，我们帮你改。

狐爸，这个问题其实论坛里面早就有人回答了，就一段代码，窗口就可以自适应任何屏幕大小，本来我复制了这段代码的，可是前两天我孩子把我的文本给删除了，于是想找那个帖子，结果在论坛上怎么也找不到，。

 

那段代码确实无敌，我试过N次都没有问题，不知道论坛里面哪位大神可以提供？

你是不是想找这个？

msgbox("显示器分辨率为：" & SysInfo.ScreenWidth & " * " & SysInfo.ScreenHeight)
msgbox("可用工作区大小：" & SysInfo.WorkingAreaWidth & " * " & SysInfo.WorkingAreaHeight)

e.Form.BaseForm.Width = SysInfo.ScreenWidth
e.Form.BaseForm.Height = SysInfo.ScreenHeight

---------------------------------------------------------

然后这样？

For Each c As Winform.Control In e.Form.Controls
    c.Left = c.Left * (SysInfo.ScreenWidth / e.Form.Width)
    c.Top = c.Top * (SysInfo.ScreenHeight / e.Form.Height)
    c.Width = c.Width * (SysInfo.ScreenWidth / e.Form.Width)
    c.Height = c.Height * (SysInfo.ScreenHeight / e.Form.Height)
Next

------------------------------------------------------------------------

建议还是用主窗口吧。然后，不要设置锚定……