以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 窗口的控件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=136489)
--  作者：LXP166
--  发布时间：2019/6/14 12:07:00
--  [求助] 窗口的控件
请教 ，把控件放在窗口中的图画中，窗口变化后如何保持空间在图中相对位置不变。如地图上的一个地址（ex 上海）上放个控件，地图变大了，控件在随地图变化而变，永远定位在原地址（上海）上
--  作者：有点甜
--  发布时间：2019/6/14 12:40:00
--  

Afterload事件

 

vars("width") = e.Form.width
vars("height") = e.Form.height

 

SizeChanged事件

 

If e.Form.Width > 0 AndAlso e.Form.Height > 0 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
\'msgbox(e.Form.Height / vars("height"))
vars("width") = e.Form.width
vars("height") = e.Form.height

End If

[此贴子已经被作者于2019/6/14 12:40:38编辑过]
--  作者：LXP166
--  发布时间：2019/6/14 14:28:00
--  
收到，谢谢。试用一下