Foxtable(狐表)用户栏目专家坐堂 → [求助]如何让窗口和控件能随着屏幕分辨率的不同而自动缩放?


  共有2830人关注过本帖树形打印复制链接

主题:[求助]如何让窗口和控件能随着屏幕分辨率的不同而自动缩放?

帅哥哟,离线,有人找我吗?
ehomecd
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:267 积分:2562 威望:0 精华:0 注册:2008/11/9 18:30:00
[求助]如何让窗口和控件能随着屏幕分辨率的不同而自动缩放?  发帖心情 Post By:2015/9/29 8:35:00 [只看该作者]

[求助]如何让窗口和控件能随着屏幕分辨率的不同而自动缩放?

 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2015/9/29 8:48:00 [只看该作者]

屏幕分辨率参考http://www.foxtable.com/help/topics/0348.htm

窗口的大小根据分辨率进行调整即可。

至于控件也跟着缩放就没多大意义了。建议做成几块区域,根据分辨率适当进行隐藏。


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/9/29 9:13:00 [只看该作者]

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


 回到顶部
帅哥哟,离线,有人找我吗?
ehomecd
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:267 积分:2562 威望:0 精华:0 注册:2008/11/9 18:30:00
  发帖心情 Post By:2015/9/29 9:34:00 [只看该作者]

这样调整后,控件内的字体如何也跟着缩放?

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/9/29 9:35:00 [只看该作者]

这个做不到的。


 回到顶部