以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]一个关于显示的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72324)
--  作者：vindesk
--  发布时间：2015/7/28 12:58:00
--  [求助]一个关于显示的问题
楼主初步设计了一个窗口，现在发现在不同尺寸的电脑上，不能自适应显示屏，有什么解决办法，总不能每到一台电脑上就修改一次界面大小吧？
已经设置自动滚屏，但是主界面还是无法滚欸，怎么办呢
--  作者：大红袍
--  发布时间：2015/7/28 14:13:00
--  

 大小尽量按照1024*768分辨率去设计。

 

 如果真要自动适应大小，就看下面的代码

 

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