Foxtable(狐表)用户栏目专家坐堂 → [求助]屏幕分辨率问题,用自动调整方法提示:算法溢出!附程序及截图!


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

主题:[求助]屏幕分辨率问题,用自动调整方法提示:算法溢出!附程序及截图!

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


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2015/12/29 9:13:00 [显示全部帖子]

停靠窗口判断下

If e.Form.Visible = True Then

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
vars("width") = e.Form.width
vars("height") = e.Form.height

End If

控件太密集,按比例缩放后效果不是很好,建议还是固定大小好了

 回到顶部