以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]控件大小能随着窗口的大小一起缩放吗?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83752)

--  作者:ericotaku
--  发布时间:2016/4/15 20:57:00
--  [求助]控件大小能随着窗口的大小一起缩放吗?
如图,一个窗口,一个图片控件,上面有一个按钮。按钮的位置设计好以后(相对于图片,在黄框里面)。预览。
当窗口缩放时,按钮的大小能随着图片一起缩放吗?这样按钮的四个角的位置就可以相对图片不动了。
我选择了锚定上下左右,这个锚定似乎是对于整个窗体的。
把窗口大小固定或者把图片的缩放设置成normal可以解决。

图片点击可在新窗口打开查看此主题相关图片如下:11111111111111.png
图片点击可在新窗口打开查看


但是如果窗口需要变化的时候,图片缩放设置成zoom,又怎么可以实现按钮相对于图片的位置是固定的呢?
我设置成了ZOOM,按钮的位置乱跑啦

图片点击可在新窗口打开查看此主题相关图片如下:22222222222.png
图片点击可在新窗口打开查看


--  作者:大红袍
--  发布时间:2016/4/18 0:44: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


--  作者:Hyphen
--  发布时间:2016/4/18 10:23:00
--  
zoom模式还要考虑到图片的等比例缩放

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目20150858.zip


--  作者:ericotaku
--  发布时间:2016/4/18 17:47:00
--  
谢谢,就是这个意思图片点击可在新窗口打开查看