以下是引用dingqiaoren在2012-11-2 10:32:00的发言：
狐爸，这个问题其实论坛里面早就有人回答了，就一段代码，窗口就可以自适应任何屏幕大小，本来我复制了这段代码的，可是前两天我孩子把我的文本给删除了，于是想找那个帖子，结果在论坛上怎么也找不到，
。
那段代码确实无敌，我试过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
------------------------------------------------------------------------
建议还是用主窗口吧。然后，不要设置锚定……
[此贴子已经被作者于2012-11-2 11:04:10编辑过]
加好友 
发短信
Post By：2012/11/1 14:20:00 [显示全部帖子]
